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«: DJ-i 7fl 


^m 


^isfe ^^^§(1-15)? MS M 



irUXi-t£t^r>tzlit:. '-k^Xit 

xw^xxin. 
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18 MSX NEW SOFT 



sa 



5B 

sa 

26 B 



9B 



sa 



85 



l»ff^V7S^0gX<ryii-Jbi 
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{T)RAMi?)16# t:°> ■$: ^ V ^'<> 



(lC22^24){;)_bo f^^?rl^l;i^ 
(DV9958VDPt7)59# t°> (JiJEP® 

L^iRAMcT^ie^eX". 2-f^i: 
h r> ti <- (— :^^( J V a > 7 □ 



^-i>t3[l!9gx.073/^tt 



VRAMIJ. OOOOOH— OFFFFH ^ T- 

7F?n§(7)ti, Ot3(3S:*;VRAM„ 
K;?ftVRAM;^^ibS:$;VRAM^i: 7=-' 

-St. VDPUv^$'-45(t:'x^ 
RAMC75/N"> ^-bj) (J §x.(73|ll#S^) 
(73, t'-y h 6 ^iS-f'^r -6 C t X-^ 

S/;MSXBASICT'(J. 
vdp(46)=S.b010DO000 

VDP3V> KOTHMMM^. HMMC 

#%^X(-. BASICX-fF-^/c/N' 

LXfcl^fc. SCREEN12£7)i^il 

-fJl^^tHUCLX. 2:f^ffl^-r 



^AX(i. line:5;(7)^\°v>-5'- 
X\ S^iiic7)YJt-^^te5fai-LX 

-r^i:, uo—igo^TSxx'jz^^j: 
/\°v>— 5"— ^Ir:^lx. 2oo^t 

XHMMM(S:S^?tfi3V> K)^ 
^^TLXL^-&„ 210^Tt220^fX\ 

(I. 23D^ft240^T\ Sg'<— > 

t 1 ^^^^-t+xi^^. C«t 
#[iBEEP^^=cS§y-c[tx.Iii®(i 

ffi^VRAM[Zilig?-ti:/-T-'-5' 
^ax-r^ff)(i. 260~290^C7)g|S 
■S-c *^ < 30CHtX-^- V t 1 ^ 

vRAMiziiiSAM*#? nxi.^-& - 

-c7)(5*SIfo, J/£3iVRAMc;)?!J 

UdT'L-ziUKLX. ®^X^5 
« fesfe L I ^/;'^ T „ SCREEN54' K 

?-fS -^ fz:fi:^ ( ? ) T - y - •> 3 
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MSB 




LSB 


R#4 


5 • X * * * * 


• • 




To ; VRAM 

\_ 1 :aaRAM 










t:7='7rRAMa)>t'J-:^iv7 




OOOOOH 



OFFFFH 



(f'-:?m) 



VRAM 



IFFFFH 



BBHOSBBSSB 

100 ■ VRAM BANK sample Program 

110' 

120 CLEAR 1000:SCREEN 12:C0LOR 15.0,0:CLS 

130 VDP(9)=VDP(9) OR &B00000010 

140 SETPAGE 0, l:8L0AD"sainplel. sl2". S 

150 LINE(0.0)-(511.211).248.BF,AND:SETPAGE 1.0 

160 BL0AD"sampIe2. sl2'. S:LINE(0.0)-(511, 211). 2 

48, BF, AND 

170 FOR 1=33 TO 44:READ AD:VDP(I)=AD:NEXT 

180 DATA 0. 0, 0. 0. 0. 0, 0, 0, 255, 1, 255. 5 

190 VDP(46)=&B00100000 

200 VDP(47)=&B11010000 

210 SETPAGE 0.0:FOR 1=0 TO 1000:NEXT;CLS 

220 SETPAGE 1,1:F0R 1=0 TO 1000:NEXT:CLS 

230 SETPAGE 0:FOR 1=0 TO 1000:NEXT:BEEP 

240 SETPAGE 1:F0R 1=0 TO 1000: NEXT: BEEP 

250 FOR 1=0 TO 1000: NEXT 

260 FOR 1=33 TO 44:READ AD:VDP(I)=AD:NEXT 

270 DATA 0, 0. 0, 0, 0, 0, 0, 0, 255. 1. 255. 5 

280 VDP(46)=&B00010000 

290 VDP(47)=&B11010000 

300 SETPAGE 1:F0R 1=0 TO 1000:NEXT:SETPAGE 

310 GOTO 310 
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®SXP';/h^JiSSS1"^ 



MSX-DOS2. MSX-JE^^^ROM^j:<i;'^l^i^U 
-;;.^MSX-SERIAL23P^ MSXView/d:<^©^ISt 



MSXturbo R (;){±^T'IJ. cn 

ST-coMSXi:(i^L\ ?->>(Z);^ 

■7 f^ #C7) #K?i?:)\ BASICS 
>^-7°U ^ — (^-f >ROM)T', 

■y h 3#(Z)0#^^?i:6^yi'>RAM. 

3 - 1 tl^V'7'R0Mt'M^BAS\CX\ 

3-2(iDisk-BASia ^LT3-3 
fysj( _ ^ _ ^ y .;> 3 > (_f^■^ STJ)^ 

(J, ^n^'n£:$;^P-y h(7)SS. 
±i-MJ-yvXP7 h t LT. * 

- 3 #„ 4-[fi]C0SfcitTii. C (7) T 

^^-gPo'iti. PC-6001ffl«^ii^S 
^^(+^>^N-\' hSc7)MCC-152)o |W] 
t±^^'bMSXffiff)K^£+Sfog5K 
^nXl^^t)\ ^mo^mi'^X'iii:: 
^$ti^']^$T^'^(r>X\ PC-6001 



t-^:?-(MSXffi)T\ 7. h^-h 
$' -f 7°(?D fee;:) t 2 m'H^iz^i^. 
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50 



1 CS^ 

3 CS12 

5 fm 

7 ffAIT 

9 Ml 

11 I(5RQ 

13 m 







15 RESET 

17 A9 

19 All 

21 A7 

23 A12 

25 AH 

27 Al 

29 A3 

31 A5 

33 Dl 

35 D3 

37 D5 

39 D7 

41 GND 

43 GND 

45 +5V 

47 +5V 

49 SUNDIN 



2 
4 
6 
8 

1? 
12 
14 
16 
18 
2^ 
22 
24 
26 
28 

n 

32 
34 
36 

38 
4^ 
42 
44 
46 
48 
50 



CS2 



SLTSEL 
RFSH 

]NT 

BUSDTR 



RD 

A15 

A10 

A6 

A8 

A13 

A0 

A2 

A4 

m 

D2 

D4 
D6 

CLOCK 
SWl 

%n 

+12V 
-12V 
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>^-*- 



pc-60(fiffli£^isw -^ >'^-^ ^ 1 fe 

MSXffl5ffh'yi-KI7■/3i?^ hn-b 2(@ 
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AlST^a->7':/3^f^il 



ofcttt; 15 5 u ^1^(7)^ '^--y- 

(J, ;$;#:^®(7)7. P 7 h (i 2 S« 

uc c (ziii§:S^^^-t2 -y h -r^o 

f^^;:j^'^ p -y M SiT) 1 #te^(:: 
fiJ(J^Xibn-5;blt/z. 

(D2#;^P -y |-t7)SLTSEL(;?.D 

•y h-tzu-^ }-)ffi-t(is-=fc?^iS 

•y h - 1 (TJSLTSEUf -^ti. X 
P-y f- 2^(7)16#t:''>7b^'b. 7. 
P-y h 0-lCO4#t°>(=#M 

(D[I]S&[I14'[ztii-r < i>7.^ -y^iZ 

(J. h^vL-T.-r-y^^f^ffl-rSo 

Cntis SLTSELc75f=-§-^ON/ 
tx.tiRS-232C:^- h U -y V 

CTict^U. •fs^Jb'd.-L^t^CT.P 

>y KZ-tz-y l-^tlTUiit:. ^ 

>y h {Z-D^s-fJ^ntztl- f- ij -y V 

;^-f -y ^r> t -PT-T'S ^c7)/c„ 
(i):^Wifmi^Mli ■> ZL > 7 P >li 
T\ T9769(MSXENGINE2)ff)34 
#!::°>^^'b. WMcT):^- h U -y 



Z/u;S:t©;{f ^^xbMJfyjS:®^ !! 



;^D'y S}i£3fi©fctov^>(::(f t' 
§, ML-Tsei::milLrutte3i 



usYJZfzrj 



-j-y:^ts.iz^^jiy<?\y^o,. 

CD fUSg A^Si/u r ^ S Rl sg'l4 fe S 5 ffl 

«;"iro$Li:^-hU':/i>^o?j:<-c!:, 

?SXP'yhgf$lc:, BSg^fftmr* 
Sd;5(cTSCD=fcLiUfc"-55o 
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TMmxrni^m^'^ts: 



' ili)^ 



^^Idliv '^-:^©^DI(iJMI:^■z:(it33nJ'cl:L^aiL^;^ 

tt. ^~:^(Dm^^i:Lxmpi 
:^(D:^M^^Xhh^litJt^^ 

X 1 C. liSSI5^^AlSTc7)-;r-7.il 



LX. L^J:uJ:^-:^ff5ApX(zl5 
iJJU^^izv h). c7)C§'U (5KX 

n^^xi^i>msmmt ledo^^ 









IDS U. tu®(iit?40= U(7)|E 
H, 2t;^tZrtJt?nTl^-5 Kt 

-< ^izuy^^-^- :^ it) y<~W 

p i3 •y9-X'tmr^mi~'/^'^ 

<'[zlj< J;9(z-r-5/iaDfi„ 
X'mi3'^^±t^Zt. fztizm 



tX\[^>i^:^X{t■fiiT'i1zX.t^ 
i-Jt. S-5/-z(J>'J(7)turboR^-S- 

^^^Ov ^m(r)tmrX'{-mir 
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■^XAh^'^^fz^—fj^h. ~ZX' 

tLx. 2sr^^iz-^itxmm$n 

^l3.t'c7:>M^^izU-^xi^^. 
X\ tcT)\^mit^^n t. 1 H 




(iM°V=l>V7 h (IWIAV7 h) 
n^X-±$ iiWiCLXi^X. Am 

-■:^. 3 5^7 

9-izmt^^^ 
^zL-A7°K 
(S§LT3;^7V), 



(7) ie¥T'[SB^^c7)12fl 23—240 
TL^/-zMSXfflc75!^AV7 h^^^ib. 



u(r>mmfzmz. x-h^^^^^m 

-^^ttT2S@U. V7 h^ 

M^t-^+t— ^^^/?^^ < as ^ So 

4■^^:'J:< ^ + '^4^L4-A%Aii 
Lfi„ ?o^<IrjAV7 h<7)ya 

■y:P^(Dt\'X^^t. MSXfflcT) 
-^< fc turbo R 1Z5^^J;S L ^i V 7 h 

T-^:iVLTL^§OTT\ ##[:;LX 
^-i-^/-c7)T\ ae^^^^^ntJ'MAL 



<'<$ztiz. ^-ktzh 



l£->^7 ^ji?>=i:X7U,|a] 
I; * -v 5 ? ? —<n 3 :;< 7 u ^ 
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TRILOGY STUDIO 

'^iJ^-yyiz. IqlAV^SroaSti^ 

a^n. turbo F\^zt>n!Z^\^zl\ 




IIT57Z ABg;ff3?M)llTliWm:lbiBT 
7-10 ^S''v'5;^26-§- 
ii#^S- TRILOGY STUDIO 




= 143 ^^S|iAfflE4':*5-2e-2 
CtTY FACTORY 



WHITE CANDY 

L\L\;tao c|3|z(S8^CD^-AtfAo 

nSo x-fT-^Vi^yviDr, f^A 

Vy\-izU':>tzD(Dm^ti.(Otft.o 




M71 ^KSiia^Eitfl:lli§6-22-14 



After Tone 

SYSTEM D.U.E.L 

mM-hjfzi-^^, L;ott!*lg#St\o 
fcfyzLj'Jl/XK-U-:^S)Sn. ^© 



MAJESTIC-TWO 

^=r>(«Ar^)©*c©?^3D^ic, 




=336 ^S!l-:ffl?aTfT*:;t; 5 -39- 9 
^S/\Y'V A-103 
ftg^^*- MAJESTIC-TWO 



STUDIO FG 

<lf-Urfe§i:LyL\AiS;5;cc=i^-5-'j/ 








=203 ^sSE^AS^SItmiSWBj 
Z -27-10 »Se3±S-§-^ 



f>to«:l^r'^-A^jitoSiL^ 




= 114 ^SSIi:ibEffl]SSfrfflTI-S-5 
Interpreter softwere 



SWEETEY 

Interpreter softwere 



i,^riTlEfflilurL\§l5Z)\ turbo 
R(c^L\rt.»A^nri-^s= Msx 

0y\-K'^x7Si|Sg(Cg?^U, :$; 




@=r310 3?***FrtJ^# 3-7-3 
7'::^ + -t'v I- 



:3r-safrb?ci°)AV7h©?;* 

. .__ . . -^ 






5= ^®ct*(C, 6PraW^^ft5^C. 
V7S®ilAC/^ns©t ! 
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sfHIB 



H 1 IS turbo R(Z) 









^m^m. ;^?f?T\ ^N°v=i> 



fcJ[1-HRS-232CSTOL^TU 
-:> tz ibfilSfe PC-CLUBMIZ ''j: o 

^i(::¥<7)/i<M°vzi> 
VZ1X75. -\'v/\cx5(Msx^)'J:^ 

fztl'h?^W^t (i^OtZ. MSX, 




MSX2. MSX2 + , ty<-i^3>T 
y^LX$fz. ^7^^>MSX7iJ 
—^(Dfz^<r>. turbo R^^^L 

(z. RGB^-y;MtSo pmyy 

(ZD0S2 TOOLS#(t^^T il^\ 
-7-3.T)[^fzr>X. ^iP-±)J[^y\ 

BASIC^DOS2c7), ziv>K3IJ(Zf¥ 

L<m^Lx$ii. ^m9<y°x 
ft^ ^ x-i^^^<Diz Lx<ntzh 
!iLl^^fc'^tt■■ o-^. t' 
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AlSTi 



/c^Olti:; S^T-NEC/^^MSXtb 

n^t. ss^L^i^^^fc = 

ON ! MSXc75nzi':^<tb§^'t 

L^'^^ !! (C nti MSX2+ t [I) C T\ 

wsxiriHi i: J: T urtE/ -^- 
~n PCMU^f^jru-t'—o ! 

Tii. y- J.— ;6^bAlSTc;5-tZ- 




=! -y^ta^ WSXt 



nx, 'j^-> ! tfo ! u 






FDD*^PCM(7)i 



■^-?^W 



?d:ATL^;bn/zL o ^-^h^i 

i-L. PCWSoTU^S-efF 










B^^- K<7)aASICiii®[zLT;:)^ 
h. 7°P:/^A^fx^iAi6o"r ? 

X. U-tzvho BASICMH^^tb/z 
ibT^-V^^^AtLX. ^itJi$-|^ 

^-ri-t ^^. ^>yt),'^A^ 

■ttiK turbo R ! 
coLX. ^K&(7)SS"A1STt;. 




:n#AiST-it/i' 




Pegasus ff) A ISTS IS le 73 








a jKyy^y 
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999 llOP P^^^^Wi 



tyy=^yo mm^-B'pht. 



-C'-rttt; ^«^^-v hOT^Ac75# 




[Jt<^] ^J:^;:)\^e.i^t"DJ(:i- 

(5jb^c7)#Sl!Z ti*^ (i?f -5 -^ ^ X. 

^ilnX^/^-Xrtt'-l 

Itt^"] -tf-^■tf^o 

(= i-e-Zz ie>-efF-^ /■- z i: ^ ^ ct ^. 







^'s's. ^mtt^otmmttB\ 



(C-\^A/U^>'^SX2-2DD 3880B[^glJ] 










Ftg^-C. m^-b^^X-'^X^^'^Xiz 




-r -f 1 1- 7 £ HO 7/\^i=itfST--r, 
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^i?»:/SDET=-hn 













W^S^i~m'^Xl^^A.fztTX\ 



{s.iht=bis.^x\ *;]ii6tJ-;oT 

fzA.fziit\mmzlt'^~i >M' h 7 
- V j/f i: ;^^toft izfx-^-^f^ fz 
A.X't^. 

KtW^?L^A.Xrt,^l 



fz^t^ 



7^#^^^^v>:^]■T• 



fe^ifc.i'^?lSbl^T'l. 






5^S3^>^:/h'W$S! 



to ^•■vV.zmxhhA.mt. lo 





I 




•2/8 (^) 
CBC iii$-y-(i-y>[-'^^—m 

•3/10 (B) T^Ut'l^^P 
•3/21 (;1^) *fe;^% 
•3/31 (H) 



Xhhi'-iz'^BhrT<(DX-^^)i 



PcgL\st>-&56 



= 160 
a03-3354-8500 



^•>t>t)''o'tb'Po-i>xrj:t:>ifx-i-. 

>\^cr>^^y\- DEt-'- h X-ttA. X 

^nx-ti. Sural* ij ^^t T -'?■ 

003-3470-0571 

aifsi^ ^i^imn 

iKtigS 300/1 200/24l)0bps 

e-y hS B t:''y h 

'<'Jx-r— ?X'y5' 4-L 

7P-$lffl *>(J 




PROFILE 

ffi*. Kli;SiI(iBM„ fl-ftl58t> 

77, 57. 82= 

£)*^lij«S^o 1969^9 ^29am 

>?, ftB44+n, •X'i—'f'i-XKt 
85, ea 84„ 



5^^'y hDEx-l- 75 






t t » 






■te'A^u-yy. ie 
A.x-hX'$h^o 



=^'7 h-b-y \~X-iiS)^ifnt\ 

•« Pixy^gai!O03-3835-0605 
•2000H [^ij] 




izm^x^mm^m^t^isb^m^. 

V-- • ^UX'f^-i'7'7°a5'':? 
'yc7)^QUICKWIT'Sj/)<^ny-:f„-C7) 

(n^f)--^^^^7.LXMz(Df)^^ 
— /<— 7T'f JUi:7'-y:?/\'> Kc 

p =i't:5:^/z(t«->>7°ju4-T-"-+f 
X 7'v-y^(7)6 



•S03-3237-5592 
•r^i'/OK 500R [^iJ] 




#1#1#1 




I vy:^;U-y--r x>x<?';; X-CSIii***^^d:5 !? 



'TBL~^%^iZt£'^X\.^^^V-h 

m~i}n^^tixm^T^h(r)hL 

^. 7^U:bT'7-A^^#|e 
:: LTl^S^x^^i; — ;^ h— >j 
hs Vv:^juHt'rni>::^^'-yXco 



Ifci^T^-^-S h(D^£(Dtzt 1 fz^ 



\m)7'IU^-^>^—t->3±Jl' •Q03-3498-7733 •500-900n DfJlSiJ] 




• SiJ3^Mm3^SaL"y K, 7'JL-— . i^iJ— >, /\"-7'jl/i7)4feX-, -S-IOOOR [fsiSiJ]. 
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INFORMATJON 



J tfS^^iWWW^ TOY&GAME -VWySAVW^ 



r 



*/u^d;;^S$S ! j^^J/XTifcfc 



i^m^mmtxi' < . x\ 't<7>i'¥ 

mtz-tbti^o(Dt^Amtznxii^j: 



x\ h-h.fs.<ri7^ Y)vumX'^^, 



T' ^ -> a v-y- A f.-j^ >.1? > An 



•Q03-3847-5117 




•¥ff)LHiC^ttSi:iim:^'f v^^TS^a^-iail-lg^SfS •S?fF5E^+<7)''*>--^>Ani^^^ ! j„ ffl^L^nTL>4? i ll;'^b■i=^ 



WJWWWSAftrti BOOKS ^VVWWWWW 



U^-t'-K-A-Vl/Ttt^ 



n-^ix. ±mm-~X'^xmixmt'mv^':>fz 
>T-v r>(j^imiz%t^—mT>^^t^^— V t° 



•H*i^^^^ftt •980R Riiii] 

^. ::^4-^UTf§'bn?)H■S6^4■R8tS^ 





m^nmm •19D0R Bjsii] 

£ •y^^c7)<J; n [z-9 •y^t'mkXin^'^t^^Xo 



N-P 



t\ z(Dmm^t. mmxh^. ti^-iXh. 
m\sx'it^£<':>x. txhrntrnzi^ti^nxi^ 

^(Dtz. I^.-^:^HzJ:^m&(Dmh'Sl.^^fzt^ 



^^^fw!f^^9 




^MtUU 
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lUMJlLI 



j^ 



WJVyVWW^AA^ VIDEO 




^a)*p<x 



Afymm^m^::tizf^^J^-y KtI-^ h- 




•^^4^ •101-9- 



^Dm.^. Ltz~:>^ v-'dT 7 7'7. h - ij -o -;-/= 

'J ti^Sffi(7)JLT- h R.mT\ 7 7 t' i 7 ^ • -< 




•CIC't':;':?-tT-:J- 
• i:^4830R [fHSlD 



5^+g^+vs/>aLx-;^ 



;i'..;;S9-/7.A;^'l:;- 1 



(7) r-> .y ^> .y -> .y J i: L ^ ^ ^^ X z u ^'J:^l. ^ 

No.l J. ""■y-'T >( J V J. *■:? -f :?j--^ ;^ ^ jT^C t'„ 
^tm^^inXi^tzt\.^iiomz. 



Ac»tM-Siii^ia_. 



R«£f 




•48Q0R \mK\ 



(z L /z ift -f lb L I ^ 7^ U t>' 7 ^ (7) tx'^'f L 

tlfzm^'OVjh\ >r-Ac7)^ -i- ^ ^ ^"C^ < 

--:r-v3>1-^0"'3C i:l^ofcfSo^^A 

^ ;^ ^ - [z:^n T o T j(7) AM^:^*-fe# 

mt'^muz^m^u v^^x. t < izcgt? 
f^hnfz± iut£t^titi-(7^'i^^fz. ^nm!^ 
f£yi-'vx'X'^x\.-tit^hs mmthm^^ 

HXi^^ti^(r)J^')mW^ti^h^. z-i^-^iV 
h^xtzh(n\:f'Ui^A.fz[-^fi3.. 




, Network Baby 







I i^>^! VVm. i/>^ibX!!!//M#H? | | 55iiJiffl^K53'>^xXKIV 



J;-9C. Zt7)V7— (iKYON^A^T-'t"zL-LT 

Wi'oXLttint\.^ih(D^i0^fz^ X\ "(D 
fcovi;(;i40^fc=feLS6ie.^O.'d:A^T'fc.'"S 



•J- ^4^0^. 
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(55 DOR [fffiX] 
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■7-^-Kt.(Z)(^fc^;b^1^! 



7rvz-=i=i7Z7r> 



^P>L — '<JKi, G. S. M.1500 



T^Ohtz-^tztl^n^ ^GMfcJ; 




4■:^f^-^Kl.^X^.^S-r^J t(i;^ 
s?$ ^c7)#o -fe-JL.;^®X't)v s. s. 

T. /N'> \-''^X>i^9t^mM. G.S. 
M.lSOOv U — Xt'"x U T'SSj^ 

T = =i>GMig 1 5ix^s'"/i^e 
r^'^y-rx-fj iKD-ttz-^tz^ 

mmiz^^ay^n.^ ^ t-t^-^ tz 




I 




- FT-G.M.O.L — '^Jl-^m^LtzAtz. 



^ ?3 y:] >c7) 7 ;b 7 • ^ -r ^ ■ 9 • 

^LX. T-^-\--^'-Aj(-tl 

LXU iJ-^-r^tOTCi;^j:(7)X\ 
y-A7 T >ltm^^:^-j^fz^j:. 

< n^ T 'j.M^--^ -f -:t >o GM 
7y>(St.ti:';. -r'-A77'> 
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r5*=occ^ 



uofeJsttiSicj'ciiorST 



7^ try u y 






^:^C7)- tlZ-^L^XTA^A^rj^- 











X\ K7^xi:i.v9A-7V>h 

fziit\t <[cf K7:3'>^x^ h 

ai:;M#^*t^LTl^5(75'C\ -tf 



#fcLT<ni)7';r:p>o ^^[fU 







^^U(7)ti'7—^\HTfzsblz^'^^' 
fz. "ttlti^S. S. T. ^OKCft^ 



X'^K.-tz/—h—hK mm^^~^t 



•S. S. T. A>K 

•- ■ 5^1 



- 5^1i 



^^ 



A^^' 



# 



#- 




• -f >? t'i— cOt^— 7'Se~ L.T.TjSn 



^^^ 



I S. S. T. yKVHK^^o tKx- 
I Ko lQ3^-ycS§ffiR/T®"GA 
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BYAmm:^ 



i'iiiKiin'iiiii;]:f>'i![iiJ 






f^m^^^->'i 






>mtLXm^^^OlzLX^i 

c75T-r*\ BASIC(Z)PUY5:t(5i: 
^ i:'fRll: ni:<7)T'MuSICA^t#o T 



tizj^^xtsim. m^-kh-^x 
fj ^^tmm^^^xm^^x^x 



<tz$l\ 'j7.h(7)*TYPE:rT-C 
ISL (Z Am -» C -4 F -> GKDm^X 



♦ U7.hl ♦ 



< MuSICA Workshop No. 3A> 

< Accompaniment Vol. t > 

< By Y, KiTAGAMI 1991 (C) > 



T. F30. F31 1. F312. F313. F314 
T. F40. F411. F4)2. F413. F414 
T. F50, F511, F512. F513. F514 
T. FS0, F61 1, F612, F613. F614 
T. FR0, FRl/8 



FMt = 

FM2 = 

FM3 

FM4 

FM5 

FM6 

FMR 

FM7 = 

FM8 = 

FM9 = 

PSG1 = 

PSG2= 

PSG3= 

SCC1 = 

sec 2= 

SCC3= 

SCC4= 

SCC5= 



T=T120 

F30=V13 L16 05 
F4ef=V13 L16 05 
F50=V13 Lie 05 
F60=VI5 L!6 02 
FR0=V15 VS13 VHlff 



: TVPE:1 E. Piano 9th 

; IC 1 

F311=ei6>D4. (E8)E2 04. E2 E8< 

F4l1=tl6 B4,>(C8)C2< 84. >C4, C4< 

F51I=§I6G4. (G8)G2 G4. G4 G4. 

F61 l=i33>C4. C4. <E8G8> C4. [C8)C2< 

: [Am ] 

F3I2= B4. >(C8)C2 <B4. >C2 C8< 

F412= G4. (A8)A2 G4. A4. A4 

F512= E4. (E8)E2 E4. E4 E4. 

F612: A4. A4. >C8E8< A4. (AS) A2 

: [F ] 

F313= G4. (A8)A2 G4. A2 A8 

F413= E4. (F8)F2 E4. F4. F4 

F513= C4. (08) C2 04. C4 04. 

F613= F4. F4. A8>C8< F4. (F8) F2 

: 1G7 I 

F314= A4. (B8)B2 A4. B2 B8 

F414= F4, {G8)G2 F4. G4. G4 

F514= D4. (D8)D2 04. D4 04. 

F614= G4. G4. B8>D8< G4. (G8) G2 

FR1=BH8H8SH8BH8 H8BH8SHeH8 

: 'TYPE:2 E. Piano 7th 7J^^* >' J - 
: (C I 

F321=§t6L8CEGB>C<BGE CGEB>C<BGE 
F421=816 G4. G2R8 G4. G4. G8G8 
F521=ei6 E4. E2R8 E4. E4. E8E8 



F621=e33>C4. C8R4B8>C8< 04. C8R2< 
: [Dm I 

F322= DFA>CDC<AF DAF>ODC<AF 
F422= A4. A2R8 A4. A4. A8A8 
F522= F4. F2R8 F4. F4. F8F8 
F622=>D4. D8R4>C8D8< 04. 08R2< 
; [Em 1 

F323= EGB>DED<BG EBG>DED<BG 
F423= B4. B2R8 B4. 84. B8B8 
F523= G4. G2R8 G4. G4. G8G8 
F623= E4. E8R4>D8E8< E4. E8R2 
: [F I 

F324= FA>CEFEC<A F>C<A>EFEC<A 
F424->C4. C2R8 04. C4. C8CS< 
F524= G4. A2R8 A4. A4, A8A8 
F624= F4. F8R4>E8F8< F4. F8R2 

FR2=BH8H8SH8BH8 H8H8SH8BH8 



3>B8<B8>B8< 



; TYPE:3 Brass Disco 

; [C ) 

F331=i6 G2. G8(A 8) 

F43)=e6 E2. E8(G-8) 

F531=§6 02. C8(E-8) 

F631-ei2>C8>C8<C8>C8< 08>C8<08 B8< 

; [B7 I 

F332= A 1 

F432= G-1 

F532= E-1 

F632= B8>B8<B8>B8< 

: [Dm 1 

F333= A2R8A8R8 (G8) 

F433= F2R8F8R8(E8) 

F533^ D2ReD8R8 (08) 

F633=>D8>D8<D8>D8< D8>D8<D8> C8« 

: [C I 

F334=^ Gl 

F434= El 

F534= Ot 

F634=>C8>C8<08>08< C8>08<C8>Ce« 

FR3=BH16H16H16H16 SHI 6H1 6H1 6H1 6 



: TYPE:4 Strings Classic - 

: [CM7] 

F341=e2 CBEB GSEB GBE8 OBEB 

F441=e2 <G4G4G4G4> 

F541=§2 <E4E4E4E4> 

F64 1 =f 33>C8C8C8C8C8C8C8C8< 

: !G I 

F342= GGBG DGBG DGBG GGBG 

F442= 04D4D4D4 

F542=«B4B4B4B4» 

F642= G8G3G8G8G8G8G8G8 

: [Dm7j 

F343= DCFO AOFC ACFC DOFC 

F443= <A4A4A4A4> 

F543= <F4F4F4F4> 

F643= >D808D8D8D8D8D8D8< 

; (Dm7-5l 

F344= OOFC A-CFC A-CFC DCFC 

F544= <A-4A-4A-4A-4> 

F444= F4F4F4F4 



F644= >D8D8D8D8D8D8D8D8< 

FR4=BH8H8SHBH8 

TYPE:5 Guitar Cutting 
; |C7 ) 

F351=§10 R32G8GG32 R2. 
F451=§10 R$4E8EE32. R2. 
F551=§10 B-8B-B-R2, 
F65 1 =833>C8C808C8C8C8C8C8< 
: [F7 1 

F352= R32C8CC32 R2. 
F452= R64A8AA32, R2. 
F552= E-8E-E-R2. 
F6B2= F8F8F8F8F8F8F8F8 
: 107 ] 

F353= R32C8CC32 R2. 
F453= R64E8eE32. R2. 
F553= B-8B-B-R2. 
F653= G8G8G8G8G8G8G8G8 
: (G7 ] 

F354= R32F8FF32 R2. 
F454= R64G8GG32. R2. 
F554= B8B6R2. 
F654=>D8D8D8D8D8D80eD6< 

FR5=BH8H8SH8H8 



; TYPE:6 Rock'n Roll 

: [07 07] 

F361=e53 RlRl 

F461=S5306 G8G8A8G8 B-8G8A8 (G8 

G)GG8A8G8 B-8G8AeG8 
F56 1=95306 08C8C8C8 80808(08 

C)CC8C8C8 C 8C8C8C8 
F66I=833 >C8E8G8A8B-8A8G8E8 

C8E8G8A8B-8AeG8E8< 
: [F7 C7| 
F362= RlRl 
F462=>C8C8D808 E-8C808< (G8 

GJGG8A8G8 B-8G8A8G8 
F562= F8F8F8F8 F 8F8F8 (08 

0)0080808 80808C8 
F662=>F8A8>C8DeE-8D8C8<A8 

C8E8G8A8B-8A8G8E8< 
: [G7 F7 I 
F363= RlRl 
F463=>08D8E8D8 F 8D8E8 [08 

C)C08D8C8 E-8C8D4< 
F563= G8G8G8G8 G 8G8G8 (F8 

F)FF8F8F8 F 8F8F4 
F663= G8B8>D8E8F8E8D8<B8 

F8A8>C8D8E-8D8C8<A8 
; (07 G7] 
F364= RlRl 
F464= G8G8A8G8 B-8G8A8>G8 

R8G8G4 G8G4G8< 

F564= 0808C808 80808D8 

R808D4 D8D4D8 

F664=>08E8G8A8B-8A8G8E8 

R8G8G8R8 G8G8G8G8< 



FRG=BH8H8SH8H8 BH8H8SH8BH8 



100 ^m(r>zz^ 
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• TYPE 1 

fz I ^*g-« U X h <7) J: C 7th^. 
9thC?)^ ?r##^ ^° :? - > 1-ia^ii 

i: K, 5. VOT"C"£0^P^Tii7th 

(i-x 9th(ji 7r^^-7_Lcou. 

\iiSVlZ -> i: l^ ;^% ^ cT)?:)^;^^^ § ^ 

•TYPE 2 

LXP)-X<tz$l\ ^-7.^^L 
At J ^ ^ :? " y'±(D^ ^1*i^C 



U7J-2 



< MuSICA Workshop No. 3B> 

< Accompaniment Vol. 1 > 

< By Y. KITAGAMI 1991 (C) > 



•TYPE 3 

'"7.'<-7./\U7'-j(=mT-5T' 

Kiiftc7)#|lmfcmxL^§^fcnt 
t\ ;^'<-'NUcD>a-rV^AtiT 

•TYPE 4 

^ 7 ■> -y :?a(7)f¥#/itt £" F V 
I^H^-Xti^X-^X^^^ff^X: M 

ZX^ittXto tfz. FM^ilgCT) 
ij XAy\°- h ?:fs&^T"(^, 4cMi 
oT7'JL"<v7fc7)=i — v;^^AtL 



•TYPE 5 

mM.LX^tUz. +'^-mW(i 
S^ 1 ;^-ro^|< COT'T:? -y ^CO 

T'+"$'-ibL< LX<i^JU/c„ 
• TYPE 6 

V K -y :? 7. Xi-y)\ M^(7) □ -y ^ 

•TYPE 7 

- ntJTYPEe^/ ^- F a -y :? C 
L/z15iJT'-r= fc^fLig:']^t±J-r/z 



^^X'Lxi. ^f£MzQm^ii 
y^=¥l-^^<t^tzi^X\ x>'1^ 

•TYPE 8 

^ V t' (^PgU/ ^-7-> =1 - K ) 

(J2=i— K (2/\°:5'— ><75i]-K 

-fb^r^tt^fciOd^AT 4 =1- K 
(iLT^SL/-. itz. :?^fco 

•TYPE 9 

?) L ^-9- >y \'(Z L /■= L ^ AtJ. ' J ;^ h 
>->-^-n-K(zLX^S Li Op 



T. F30. F37I . F372. F373. F374 
T, F40. F47I. F472. F473. F474 
T. F50. F57I. F572. F573. F574 
T. F60. F671. F672, F673. F674 
T. FR0. FR7/8 



FMI = 

FM2 = 

FM3 

FM4 

FM5 

FM6 

FMR 

FM7 = 

FM8 = 

FM9 = 

PSGI = 

PSG2= 

PSG3= 

SCC1 = 

sec 2= 

SCC3= 

SCC4= 

SCC5= 



T=T]26I 

F30=V13 LI6 05 
F40=V13 L16 05 
F50=V13 LI6 05 
F60=VI5 L16 02 
FR0=V15 VS13 VHt0 



; TYPE:? Hard Rock 

; [Am ] 
F371^Z40 

65305 <A8 A8»A8R8G8A6R8« (A8 
AR) A8»A8R8G8A8R4< 
F471=§5305 >R4 E8R8D8E8R4 



R4 E8R8D8E8R4< 
F571=§5305 <A8 A8> A8R8G8AaR8< (A8 

AR)A8> A8R8G8A8R4 
F671=S12 A8A8A8A8 A8A8A6A8 
A8A8A8A8 A8A8A8A8 
: iDm 1 
F372=<D8 D8»D8R8C8D8R8« (D8 

OR) D8»D8R8C8D8R4< 
F472= R4 G8R8F8G8R4 

R4 G8R8F8G8R4 
F572=<D8 D8> D8R8C8D8R8< (D8 

DR) D8> D8R8C8D8R4 
F672=>D8D8DBD8 D8D808D8 

D8D8D8D8 D8D8D8D8< 
; [F I 
F373=<F8 F8»F8R8E 8F8R8« (F8 

FR) F8»F8R8E 8F8R4< 
F473=>R4 CBRB^B 8>C8R4 

R4 C8R8<B 8>C8R4< 
F573=<F8 F8> F8R8E 8F8R8< (F8 

FR) F8> F8R8E 8F8R4 
F673= F8F8F8F8 F8F8F8F8 

F8F8F8F8 F8F8F8F8 
: [G 1 
F374=<G8 G8»G8R8F8G8R8« (G8 

GR) G8»G8R8F8G8R4< 
F474=>R4 D8R8C8D8R4 

R4 D8R8C8D8R4< 
F574=<G8 G8> G8R8F8G8R8< (G8 

GR) G8> G8R8F8G8R4 
F674= G8G8G8G8 G8G8G8G8 

G8G8G8G8 G8G8G8G8 

FR7=BH8H8SH8H8 BH8H8SH8H8 



; TYPe:8 Clavi, Funk - 
: [E7 ] 

F38 1=8 140504 R8 ER EER E 
F481=814Q504 R8 DD-ODD-D 
F581=ei4Q502 E>EB8. B8 B< 
F68T=S33 ER8, ER8. ER8. ER8. 



R8 ER EER E 
R8 DD-DDD-D 
E>EB8. 88 B< 



: [D7 I 

F382= R8 DR DDR D R8 DR DDR D 

F482= R8 CC-CCC-C R8 CC-CCC-C 

F582= D>DA8. D8 D< D>DA8. D8 D< 

F682= Dfl8. DR8. DR8. DR8. 

: IA7 1 

F383= R8 AR AAR A R8 AR AAR A 

F483~ R8 GG-GGG-G R8 GG-GGG-G 

F583= A>AE8, E8 E< A>AE8. E8 E< 

F683= AR8. AR8. AR8. ARB, 

; IG7 1 

F384= R8 GR GGR G R8 GR GGR G 

F484= R8 FE FFE F R8 FE FFE F 

F584= G>GD8. D8 0< G>GD8. D8 D< 

F684= GR8. 6R8. GR8. GR8. 

FR8=BH I 6H I 6H I 6H 1 6 SH 1 6H 1 6H 1 6H 1 6 



; TYPE:9 Samba 

; (Dm 1 

F391=ei6 F8ADRDRD8FRDE8F8 

F491=§16 A2. A4 

F591=§16 F2. F4 

F591=§33>D8. AA8. D D8. AA8A-8< 

: tC 1 

F392= E8ECRCRC8ERC08E8 

F492= Gl 

F592= El 

F692=>C8. GG8. C 08. GG8. C< 

: IC 1 

F393= E8GCRCRC8ERCD8E8 

F493= G2. G4 

F593= E2. E4 

F693=>C8. GG8. C C8. GG8A-8< 

; (Dm 1 

F394= F8FDRDRD8FRDE8F8 

F494= A1 

F594= Fl 

F694=>08. AA8. D D8. AA8. D< 

FR9=BH 1 6H 1 6H 1 6BH 1 6 SH 1 6H 1 6H 1 6BH 1 6 



m<nzz^ 101 



ffi^xV;^^ii-tz-yu fififf^ K^. ^gt^ € 

t^^^^mttLx. :^zb<Du>7-7.\-t.n\:hx 



WORKBGX 



^4^5 A.'fe < :fe:^?> 



n-^>^-y\'jb-|jS'^h 



itxiS-mitz^^mmz^^r^ 
m^iz^ msMiixh't^^xiimt 

t. Wj^'^fz^wz'^cD'^^mmz 

Lfy'h\i- \-^gWti'^^Ltz^ 

z^XLiiztxt. 

tzt^ii^^^-y2(DVi.i^ 
65 . 4Hz. ^ ^ :? -7 2 c7) 5 [ j:82 . 4 

HzT^t;)M(ji7H2x--r. zmt^ 



t^\ imm.ximm(Dm'M^(D 

mMt>^^^'tzsbizmz^t>iix-r. 

zH^M^-^xm^^mht^^. 

^r>i:M^Xt. ^±SfSti'') 

i. v(Dm^m^i.^t>iix-ri2o 

^tmmiziax^^^fmnm 

x-to n^-j<?^^~(nm^xz^ 
'mi^izm-fi<r)Xto 



4[:W^^^■^>y>ffi:^i 


FR0=V15 VSI3 VH10 






:< MiiSICA Workshop No. 3C> 




;< TYPE 1 Sample > 


F10UL16O7§3 


;< By Y. KlTAGAMl 1391 (C) > 


R4E4D8CRR4<B484>C8DR8. ER 


[C I 




D4. E4C8E8G8B4. G4. E4 


[Am] 


FMl =T. FI01 


D4. E4. <A2. R8A8B8>C8 


IF ] 


FM2 =T, Z. F10] 


Cd. <B2R8A4. B4G8B8>D8 


tG71 


FM3 =T. F30, F31 1. F312. F313. F314 




FM4 =T. F40, F4] 1, F4I2, F413, F414 


; [c ) 


FM5 =T, F50. F51 1. F512, F513, F5I4 


F3n=§16>D4. [E8) E2 D4. E2 E8< 


FM6 =T. F60, FGll. F612, F613, F614 


F4n=61B B4, >(C6)C2< B4. >C4.C4< 


FMR =T. FR0, FR1/8 


F511=ei6 G4. (G8)G2 G4. G4 G4. 


FM7 = 


F61 l=e33>C4, C4. <E8G8> C4. (08) C2<: 


FM8 = 


; [Am 1 


FM9 = 


F312= B4. >[C8]C2 <B4. >C2 C8< 


PSG1 = 


F412= G4. [A8)A2 G4. A4. A4 


PSG2 = 


F512= E4. (E8)E2 E4. E4 E4. 


PSG3= 


F6I2= A4. A4. >CeE8< A4. [A8l A2 


SCCI = 


: [F 1 


SCC2 = 


F3I3= G4. (A8) A2 G4. A2 AS 


SCC3 = 


F4I3= E-l. [F8] F2 E4, F4. F4 


sec 4 = 


F513= C4. (C8)C2 C4. C4 C4. 


sec 5= 


F6t3: F4. F4. A8>C8< F4. [F8) F2 




: [G7 1 


T=T120 


F3I4= kA. [B8)B2 A4. B2 B8 


Z=Z30 


F414= F.4. (G8)G2 F4. G4. G4 


F30=V13 L16 05 


F514= D4, (D8)D2 D4. D4 D4. 


F40=VI3 LIB 05 


F614= G4, G4. B8>D8< G4. [G8) G2 


F50:V13 lie 05 




F60=V!5 L15 02 


FR1=8H8H8SH8BH8 H8BH8SH8H8 




• ftfi-§-T-SSiA-L/;PCMx-T'-f 






102 ^^m--^ 



MUSIC NO KOKORO 




50=l>x7.K 



^CDH^ffm 









W^^c;)'"MUSIC WORKSHOPji^r 

y -r > tc-f §^:^^ ; (7)^ ~ z ^(7) 



■>f-A~a-y'>^gUP^ 



FHffiLTfebT-^fcU/c. *?W(73 
musicaCxV ^^iiffcT^tijfij-i-t; 

tlZfy^<. Cn^O^ 6 WORKSHOP 



^(7)•f^o/zffl^^SLTusr„ 

mi|g|5P1lJ:^Uv:^JUS|Sn. <r- 



mu^td^i^ ^£h. fifijfv ^^v 



r 

5t 



t1 07-24 
::^U-I7^HLiJt:r;L/ 



s© 



BY ^li#li 



©a:^77imA 



Wonderers from YS 

(C) Falcom 



10 

20 

25 

30 'By S. TAKAHASHI 

40 

50 _MUS1C (1. 0. 2. 2. 2) :CLEAR 2000 

60 .TRANSPOSE (0) :_PITCH (442) 

70 POKE 8HFA3C. 24:POKE 8HFA5C. 24:P0KE IH 

FA7C. 24 

80 DIM A«(15) 

90 FOR !=0 TO 15 

100 READ AJ;AH(!)=VAL("6H"+AI) 

1 10 NEXT I 

120 .VOICE COPY (AH. ©63) 

130 DATA 0000,0000.0000.0000 

140 DATA 0000, 00f9, 0000, 0000 

150 DATA 0010, f IFl, 

1B0 DATA 1014, ! If 1, 

170 SOUND 7, 49: SOUND 6, 

190 TJ-"T150" 

200 A0I = "V1 ]e608f )&L8V]0F&V9FSV8FSV7F!,V6 

F&V5FiV4F!,V3F 

210 BXt="E<B-BGAE>E<B-":BY$="SGAE>E<B-BG 

>":B0$="R]V4L1 686305" +BX$+"VB"+BY$+"V8"+ 

BX$4-"V10"+BYS + "V12"+BXS+BYI 

220 C0I='R2S5V13O2G1&G1&G1&G2 

230 E0t = "HlRlRlR2. V15BS] BBS16BS16BS1 6" 

240 F0t = "S0L16R]RIR4M4000C16M]2000C4. , fi 

1M3500CCCC" 

250 A1S="V13S407L1E<8-' 

260 BS="E<B-BGAE>E<B-BGAE>E<B~BG>":BI$=" 

Q8S63L1606V14'' + B$ + Bt 

270 C1S='06V13S33L1602EE>EE<E>E<EEEE>EE< 

E>E<EE F»F»>FltF#<F#>F#<F#F#F#F«>F«F»<F#> 

F#<F#F#" 

280 EI="BH16H16BS!H16H16 B!H16H16BSIHt 6H 

16 B!H16H16BS1HlBHt6 B JHI6H1 6BSIH16SIH1 6 

":E1 t='V10eA!5"+EI+Et 

290 Ft="R8CR8CR8CR6C16C16":Fl t="S0M5000L 

8"+FI+F$ 

300 A2t = "AE>';A3J="A2. >D4E" 

310 B2J=B$ + "<E<B-BGAEGD«£<B>D<AB-AGE'' 

320 C2J="AA>AA<A>A<AAAA>AA<A>A<AA EE>EE< 

EEE>E<EE>EEEF#GA" 

330 Et=EI+"B!H16H16BS!H16H16 B1H16H16BS! 

H16Ht6 B1H16H16S!H16H16B!S!H16B!SIH!6' 

340 E2t=E$+"B!SIH]5B!SIH16" 

350 E3t=E$+"R168ISlH16" 

360 F2I=FJ+"R8CR8CR8CC16C16C15C16" 

370 F3t-F$+"R8CR8CR8CC15CI6RI6C16" 

380 A4I = "§63V1404B2. G4B-4, FS8&Ffl2" 

390 A5$="A2, L8BAG4AEiEEiEG" 



410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
520 
570 



A6t = "B2. G4B-4. >C#iC#2' 
A7t = "C2<A. >D. D«E1>" 
B3J="§16V1 107"+Bt+B$ 



PLAY 



PLAY»2, Tt. TS, TJ, TI, T$ 
PLAY#2. A0J. B0J, C0J, E0$. F0I 
PLAYIt2. AIJ, Bit, Clt, Elt, FIJ 
PLAY#2. A2$. B2I, C2S, E2S, F2S 
PLAY#2. AIS. Bit, CIS, Elt, Fit 
PLAYfl2. A3t. B2t, C2S, E3t. F3t :Z=0 
PLAY»2. A4t. B3t, CI t. Elt, Fit 
PLAY#2, A5t. B2t, C2J, E2t. F2t 
PLAYtt2, A6t. B3t, CIS,- Elt, Fit 
IF Z=0 THEN 560 ELSE 570 
PLAY«2, A7t. B2t,C2S, E2t, F2t;Z=l :G0TO 

PLAY#2, A7t. B2t, C2S, E3t, F3t :GOTO 480 



m'f-u^zi-v-joiin 



Vi—.+^IJ^^ THE SAND CASTLE 
BY Masquerade 



©B*77J1'3A 



1 ■ 

2 ■ 

3 'Identification Division (OV) 

4 ' 

15 

20 

25 

30 

35 

40 

45 

50 

55 

60 

10e 

t 10 ' 

120 CLEAR5000:_MUSIC(1. 0. 

130 SOUND 7, 28: SOUND 6. 6 

140 _PITCH(443) :_TRANSPOSE (0) 

150 DIM A)i(l5) 

160 FOR 1=0 TO 15 

170 READ At:ASsU)=VAL CiM'+AS) 

180 NEXT I 

190 _VOICEC0PY(A«, 863] 

200 DATA 6C43, 7661 , 6369, 645F. ED00, A, 0, 0, 

EE9. F4C2. 20. 0, 84F, 25F0. 60, 

210 POKE SHFA2C+16*1, 12 

220 Tt = "tl49";PLAY#2, TI, TI, T$, TI, TS. TJ, T 

S. TS.TI, TS 



* — the sand castle — * 

* (sorcerian #1-4 • 

* "the curse oas/s") * 

* by Falcom * 
% * 

* coded by Masquerade « 

* X 

'Environment Division (5'J) 

1. 1. 1,1, 1) 



230 'PSG l^melody PSG 2=synth torn PSG 3= 

snare&hihat 

240 ■ 

250 'Data Division (i'J) 

250 ■ 

270 XlS = "rr' 



290 
eff 
300 
310 
320 
8. d 
330 
Sea 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
. >d 
440 
450 
460 
e-" 
470 
=AY 
480 



Alt='e63vl31i6 r4o5b2164bbbbb>cc+ddt 
+gg+aa+ 1 1 6b2baf +def +gd" 

A2S = "e4eb'la8- b8. >c8<bl 

A3S="r4>b4>e8. c8. <b8a8. fS. aBb2" 

A4S="r8afa8b8b8afab>c<b >c8. <a8. b8>c 

.. c8" 

A5t="il4o5v!4 eabr16eabrl6ff8fffff o 
brl6eabrl6ffffffff " 

A6$="e03o5vl5 e2f2d2g2" 



A7I- 
A8S = 
A9S = 
AAI = 
AB$ = 
ACS = 
ADS^ 
AES- 
AF$= 



o6 e2f2d2g2 

fi&f r 

<gl &gl " 

@36o5v15cl<b-2>e-2" 

cKcl " 

g4. fgf2 a-4. ga-g2" 

b-4. a-b->e-8. c8. <b-8>ol 

glf2g2" 

b-8. a-8. c88c2 b-8. a-8. c 



ia-8. b-i 



AGS="cl!.c2<b-8. a-8. 98" 

AHS="f Uf 1" 

AXS="©14o6vl5q6f8e-f8e-f8e-f8e-fe-e- 
:AI$=AX$+AXS 

AYS-"q8c8. <b-8. >e-8c8. <b-8. >e-8" :AJt 
S+AYI 

AKS=AYI+"d-8. c8. <b-8>f8. e-8. gS" 



510 B1 t="e63vl 1 r4rl6o5b2164bbbbb>cc+dd+ 

eff+gg+aa+ 1 16b2baf +def +g32" 

520 B2I-"de4-:b4a8, bS. >c8<b28,b4 

530 B3I = '>'lrlB>b4>eS. c8, <b8a8. f8. a8b4ib8 

540 B4I="r8. afaSbSbSaf ab>c<b >c8. <a8. b8> 

c8. d8. c" 

550 65I^"ei4o5vl3 r 1 6eabr 1 6eabr 1 Bf f 8f f f f 

f o6eabrl6eabrl6fffffff " 

560 B6t = "e03o5vl4 rl 6e2f 2d2g4. . " 

570 B7t = "o6 rl6e2f2d2g4. . " 

580 B8I = "rl6f I&f2«f4, . " 

590 B9$ = "r16<gUg2S.G4. . " 

600 BAt ^ " @36o5 vl4r 15c Kb -2>e-4. . ■" 

610 BBt = "rl6cl<c2i,c4. . " 

620 BCt = "rl694. fgf2 a-4. ga-g4. . " 

630 BDt = "r16b-4. a-b->e-8. c8. <b-8>c2Sc4. . 

640 BEt = "rI6glf2g4. . - 

650 BFt = "rl6b-8. a-8. c8Sc2 b-3. a-8. g8a-8, 

b-8. >d-" 

650 BGt="rl6c1Sc2<b-8. a-8, 9" 

670 BHt = "r)6f l&f2S>f4. . " 

680 BXI="ei4o6vl2q5rl6f8e-f8e-f8e-f8e-fe 

-e-":BIS=BXt+BX$ 

690 BYI = "q8rl5c8. <b-8. >e-8c8. <b-8. >e-'':B 

J$=BY$+BY$ 

700 BKt=BYt + "rl5d-8. c8. <b-8>f8. e-8. 9" 

710 ■ 

720 ClI="ei4o6vl21 !6 efefe<bgb>ef efefab 

efefe<bgb>efefefab" 



^mffizz^ 103 



730 C5$="@14o4v?2 b>ef +r 1 6<b>ef +r 1 6cc8cc 

ccc o5b>ef+rl6<b>ef+r IGcccccccc" 

740 C6t="e48o4v8e8ee8eeef8ff8f ffdSddSddd 

g8gg8ggg" 

760 CS$="il6o6vl ] f8<a->ce-8<a->cf8<a->c 

e-8<a->c f <a->ce-<a->cfce-<a->cf <a->ce-G 

770 C9t="o5a-8d-cg8d-ca-8d-cged-c a-d-cg 

d-ca-cgd-ca-d-cgc" 

780 CAS="e36o4vl2 a-lg2b-2" 

790 CB$="a-l<gl " 

800 CCS='">c4. ccc2e-4. e-e-e-2" 

810 CD$='f4. e-f>c8. <b-8, fSgl" 

620 CE$='>cl<b-2>e-2" 

830 CFt = "g8. f8. ■;a-8&3-2>f8. e-8. d-8e-8. f8 

. a-8" 

840 CGS="glS92f8. e-8- d-8" 

850 CHI = "cUcr 

860 CX$='@l4o6vl2 cc<b->cc<b->cc<b->cC':b 

->c<b-b-b-"iCI$=CX$+CXt 

870 CJt = "a-8. gS. b-8a-8, g8, b-8 a-8, g8. b-8 

a-8, gS. b-6" 

880 CK$="g8. f8, b-898. f8, b-8 g3, f8, b-8g8, 

f8, b-8" 

890 ■ 

900 Dl S="SI4o6vM 1 16 b>c<b>c<bbeeb>c<b>c 

<b>cde <b>c<b>c<bbeeb>c<b>c<b>cde" 

910 D5S="ei6o5vl2IIG eabr 1 6eabr I 6f f8f 132 

fg>fgfgfg l l6o6eabrl6eabrl6ff ff I32fg>fgf 

gfg" 

920 D6S^"§63v7o6 bl&bl" 

930 D8S="@l6o6vl0 1 16r 1 6f 8<a->ce-8<a->cf 

8<a->ce-8<a->c f <a->ce-<a->cf ce-<a->cf<a 

->ce-' 

940 D9l^"co5a-8d-cg8d-ca-8d-cg8d-c a-d-c 

gd-oa-cgd-ca-d-cg" 

950 DX$="805o6v07 g8, a-8. e8a-8. b-8. a-8" : 

DAI=DXI+DXt 

960 DB|-0XU"g8. a-8. 988g2" 

970 DII="e0v9o5cle-l" 

980 DJ$="f la-2g2" 

990 DKS='"d-2S,d-4, d-d- d-28d-4. d-d-" 

1000 DL$="e-2!,e-4. e-e- e-2Se-4. e-e-" 

1010 ■ 

1020 Elt="S14o3v09q61 1 6ee>e<e>de<eeee>e< 

B>gf+e<b ee>e<e>de<eeeeabee>de" 

1030 E2t="o3e8eef+ee8ff8f9fff e8eef+ee8f 

fSfgfff" 

1040 E3$="o2ee>e<e>f<e>d<eee>e<e>f<e>d<e 
ee>e<e='f <e>d<e ee»e<e>f <e>gf " 
1050 E4S = "vl0f2. . <a->cfe. c8. <b-8a-8. g8. f 
8"" 

1060 E5t = "c2. . efgS, f8. e8b-8. a-8. g8" 
1070 E6l="v09o3f8>f<fb->ce-f<f8>f<fb->ce 
-f <e-8>e-<e-gb->d-e-<e-8>e-<e-gb->d-e-" 
1080 E7$:"o3d-8>d-<d-fa-b->d-<d-8>d-<d-f 
a-b->d- <c8>c<cegb->c<c8>c<cegb->c" 
1090 E8I=~o3f8fff8fff8fff8ffa-8a-a-a-8a- 
a-a-8a-a-a-8a-a-" 

1 100 E9$="b-8b-b-b-8b-b-b-8b-b-b-8b-b->d 
-8d-d-d-8d-d-c8ccc8cc" 

1110 EAS="o3d-8d-d-d-8d-d-d-8d-d-d-8d-d- 
d-8d-d-d-8d-d-d-8d-d-d-8d-d-" 
1120 EBt="e-8e-e-e-8e-e-e-8e-e-e-8e-e- e 
-8e-e-e-8e-e-e-8e-e-e-8e-e-"' 
1 130 ■ 

1 140 FlS="e33o3vl2q6l 1 6ee>e<e>de<eeee>e< 
e>gf+e<b ee>e<e>de<eeeeabee>de" 
1 150 F4I = '"ui3f2. , <a->cf8, c8. <b-8a-8. g8. f 
8" 

M60 F6S="vl2o3f8>f<fb->ce-f<f8>f<fb-»ce 
-f <e-8>e-<e-gb->d-e-<e-8>e-<e-gb->d-e-" 
1 170 " 

1180 GXS="vl5b4s8. bl 6b8b8s4" ;G1 t=GX$+GXJ 
1190 G2I=GXt+"bl6sl6s8bl65l6sSbl6b8B16b8 
ms ! 6ms 16" 

1200 GYS="b4sl6s8bl6b8b8s4":G3S=GYH-GY$ 

1210 GZ$ = "b4sl6s8bl6b8b8sl6sl6r8'':G4t=GZ 

I+G2J 

1220 G5I="sb32sl6, r8r4r2mb32nil 6. rl6mb32m 

16. rl6tnbl6ml6mb32ml6, rl6mb32ml G, rl6mbl6ni 

16" 

1230 G6S="sb32El6- r8r4r2bl6bl 5bl 6mbl 6mbl 

6mbl6mbl6rl6sblGsl6sl6mb!6nil6ml6s32s)6. ' 

1240 G7$=GXtt"b4s8. bl 6sbl 6s I6sb8sl 6a 1 Gsl 

6sl6" 

1250 G8t="sbl6sl6bl6sbl6sl6bl6sbl6sl6bI8 
sbl Gsl 6bl 6smb24sm24sm24sbl6sbl 6" 
1260 * 



1270 Hlj = "vl0 r4o5b2]64bbbbb>cc+dd+eff4-g 

gtaa+ II 6b2baf +def +gd" 

1280 H2t = "e4<b4a8, b8, >c8<bl 

1290 H3S = "r4>b4>e8. c8. <b8a8- fS. a8b2" 

1300 H4S="r8afa8b8b8afab>c<b >c8. <a8, b8> 

c8, d8. c8" 

1310 H5$="o3v07b2>c2<a2>d2" 

1320 H6I="o5vl0 e2f2d2g2" 

1330 H7$="o6 e2f2d2g2" 

1340 H8$="f ISf 1 " 

1350 H9t='*>cllcr 

1360 HAS="o5vl3cl<b-2>e-2" 

1370 HIS="o4vl0cle-l " 

1380 HJI-"fla-2g2" 

1390 HKS=-a-l&a-l- 

1400 HLI="b-lib-!" 

1410 ■ 

1420 IXt = "164 o4vl3a+vl2avMg + vl0g": IYt = 

"1G4 Vl4fvl3ev12d+vl1d": I2$="r 1 r2"+IXI-H 

X$+IXI+1YJ+IY$+1Y$ 

1430 I8$="o5v08cl&cl" 

1440 I9t="o4cl&cl" 

1450 IYS="v05o5c8. d-8, cBd-S, e-8. d-8" ■ lAt 

=IYI*!Y$ 

1460 lBI:IYt + "c8. d-8, c8l,c2" 

1470 I IS="o3v09a-l>cl " 

1480 IJj="d-lf2e-2" 

1490 IK$="f l&f 1' 

1500 lLt="gl&gI" 

1510 ' 

1520 JX$="1 16s9ml00 ccccm3000c8ml 00cc" ■ J 

1$=JXI+JX$+JXS+JXS 

1530 J2t=JXt+JX$+"cm3000cc8ml00cm3000cc8 

ml00c24c24c24ccr8m4000cc" 

1540 JYI="ml00ccccm3000cc8ml00c" : J3$=JYS 

+JXI+JYS+JX$ 

1550 J4I=JYt+JY$+JY$+JY$ 

15G0 J5S="m3000c8ml00cccrl6cccrl6cccrlGc 

ccr IGcccrl6cccrl Gcccrl 6cc" 

1570 J6I="m3000c8ml00cccrlGcccrl6cccr!5c 

Ccrl6cccrl6cccrl6cccr!6m3000c8" 

1580 J7t = JXHJXS + JXt+"m4000ccc8cccc" 

1590 J8S="m3000cc8cc8cc8cc8c24c24c24cc" 

1600 ■ 

10000 'Procedure Division (Iv) 

10010 ■ 

10020 PLAY#2, Al$, BlJ.Cll.D1i, Ell. FIS.GII 

.HII. XIS, Jit 

10030 PLAy#2. A2t.B2S, CI J. Dl t. El i. Fl I. Gl $ 

, H2$,X1$. Jll 

10040 PLAY#2, A3S. 83$. CI 1. Dl S, El 1. F1$. Gl t 

.H3t.Xl t, Jll, 

10050 PLAY#2. A4t, B4t.ClI. D 1 t. E 1 t. Fl $, G2$ 

. H4$, !2I, J2$ 

10080 ' 

10070 PLAY#2. A5S, B5I, C5$, D5S, E2S. E2t, G3t 

.H5t.XlS. J3t 

10080 PLAY)f2. A5J, B5t, C5t, DBS, E2J. E2S. G3S 

. H5t, Xli, J3I 

10090 PLAY#2, AGS. B5i. C6$, D6t, E3$, E3J. G4$ 

, H6t, H5$, J4$ 

10100 PLAY«2, A6$, BGI. CGI. D6$. E3S. E3J. G4t 

. H6t. H5S. J4S 

101 10 PLAY#2, A7t, B7I. C6S. D6t. E3J, E3S. G4t 

, H7t, H5I. J4$ 

10120 PLAY«2, A7$, B7J, C6$, DGJ. E3$, E3t. G4$ 

.H7t.H5t. J4t 

10130 " 

10140 PLAY#2. A8I.B8I.C8l,D8t, E4t, F4S, G5$ 

, H8J, 18$. J5J 

10150 PLAY#2, ASS. B9$. C9S. D9J. E5t. E5t,G6t 

.H9t. 191. J6t 

10160 " 

10170 PLAY#2. AAt, BAS, CAI, DA$. E6t. Fe$, GIJ 

. HAI, lAI, Jit 

10180 PLAY«2. ABJ, BBS. CBS, DBt. E7$, E7t. Gl t 

, ABI. IBt. Jll 

10190 PLAY#2. ACt. BCt, CCt. DAS. EGt, F6i, Gl t 

, ACS, IA$, JIS 

10200 PLAYS2, ADS. BDt. COt. DB$, E7t, E7S.Glt 

, ADt. IBt. Jit 

10210 PLAY»2, AE$. BEt. CEJ. DAt. E6S. F6$. Gl S 

.AEI, IAS, JIS 

10220 PLAYtt2, AFt, BFt, CFS. OBt. E7$. E7t, Gl t 

. AF$, IBS, JIS 

10230 PLAY#2, AGS, BGS, CG$, DAt, E6S. F6S, Gl t 

, AGt, IAS, JIS 

10240 PLAY«2, AHS, BHS, CHt, DBS, E7S, E7i. G7t 

, AHt. IBt, J7t 



10250 ■ 

10260 PLAY#2, AIS. Bit. CI t, D It, ESS, ESI, Gl t 

, Hit, lit. Jit 

10270 PLAY#2, Alt, BIS, CIS, DJt, E9I, E9S.G1$ 

, HJS, US, JIS 

10280 PLAY«2, AIS, Bit, CIS, D IS, E8t, E8I. Gl S 

. HIS, IIS, Jit 

10230 PLAY»2. Alt, Bit. CIS. DJt, E9i. E9t Gl S 

, HJS, US, JIS 

10300 PLAY#2, AJS, BJI, CJt, DKS, EAS, EAS, Gil 

, HKt, IKS, Jit 

10310 PLAY#2, AKt. BKt, CKS, DLt, EBt, EBt, Gl t 

, HLt, ILS, Jll 

10320 PLAY#2, Xi S, XI S, XI S, XI $, XI S. XI S, G8S 

,XlI,XtS, J8S 

li)330 GOTO !| 



.7iu~ytiim^^ 



NAN NAN DA 



10 " 1990, 7. 8, 

20 ■ 

30 ■ NAN NAN OA 

40 ■ 

50 CLEAR 2000:_MUSIC(1. 0, 1. 1. 1. 1. 1. 1) :_T 

RANSPOSE(0) :_P1TCH(450) :DEFSTRA-J 

60 POKE aHFA3C, 70:POKE &HFA4C, 160:POKE i 

HFAGC, 100 

70 A="T120O5L16V14e23 

80 B="Tt20OGL16V12S23 

90 C="T120O5L16V12e58 

100 D="T120O4L16V10e58 

110 E='Ti20O3L15V10§33Q6 

120 F="TI20O2L1GVt3S33a6 

130 G="T120V15 

140 H=^"T120S0M3000O4L16 

150 I-"T120O2V1 1L16 

160 SOUND 6, 4:S0UND 7, &B010100 

170 ■ 

180 A1="R16CDEFGABA2S A2R8F8GFEF G2 

190 A2="R16CDEFGAFG2S G2R8E8FEDC D8. E3, F 

8, D8, G1G4 

200 A3=">D1& D2R808C<BAG A8, B8, G8, D8, F4 

&F2, E808 

210 A4="G1 i,G2R8G8FEDC Dl&Dl 

220 " 

230 CC='A8A8AAAAA8R16AA8AA":C1=CC+CC+CC+ 

CC 

240 C0^"AAAR16AAAR16A8R16A8AAA":C2="V15" 

tCD+CD+CD+CD+'V12' 

250 ' 

260 FF = 'GR8B8&BGR16FR8A8!,AFR16":F1=FF+FF 

+FF+FF 

270 FH="GGGR 1 6GGGR 1 6G8R 1 6G8GF+F+ " : F2="V 1 

5"+FH+FH+FH+FH;F3='V13"+FH+FH+FH+FH-t-"Vl 1 

280 F4="V13GGGR16GGGRtGG8R16G8GFF+ BBBRl 

6BBBR1 6B8R1 6B8BAA+ >DDDRI 6DDDR1 6D8R1 BD8D 

CC+ GGGR16GGGRI6G8R16G8GFF+< 

290 ■ 

300 GG="B4R4B4R4-:G1=G6+GG+GG+GG 

310 GH="CI6C16C16CBI6C16CI6C16CB16C8CB)6 

C8C16C15Ct6":G2=GH+GH+GH+GH 

320 ■ 

330 HH = "R4C8R4, C8R8" :HI = 'R4C8R4R1 6M2000C 

CR16CM3000":HG="R4C8R8M2000R!6CCCCCCC":H 

1=HH>HH+HH+HI:H2="M3000"+HH+HH+HH+HG+"M3 

000- 

340 HJ='CCCR16CCCR16C8R16C8CCC":H3=HJ+HJ 

+HJ+HJ 

350 ■ 

360 PLAY#2. A, B, C, D. E. F. G. H. I 

370 PLAY#2. "". "'.Cl.Cl. Fl, FI.GKHl, Fl 

380 PLAY#2.A1.A1. 01,01. Fl. Fl. Gl. HI. Fl 

390 PLAY#2. A2. A2. Cl.Cl.FI.Fl.Gl.Hl.Fl 

400 PLAY#2. A3. A3. Cl.Cl.FI.Fl.Gl.Hl.Fl 

410 PLAY#2. A4. A4. Cl.Cl, Fl. Fl. Gl, H2, Ft 



104 ^^(Tizz^ 



MUSIC NO KOKORO 



420 PLAY(f2, " 
430 PLAY#2. "' 
.G1.H2. Fl 
440 GOTO 370 



",C2. C2, F4. F2. G2. H3. F3 
". "". "". F1+"V10". Ft + "VI3" 




AIR FORCE 

BY MA2 



10 'AIR FORCE [BY MA2) 

20 CLEAR I000:_MUSIC(1. 0, 1. I. ). 1.1.1) 

30 SOUND 6. 8:SOUND7. S,B101010 

40 „PITCH 1441] :_BGM111 :_TRANSPOSE (0) 

50 DIM AH (15) :FOR 1 = TO I5:READ At:A»6(I 

):VAL (■■&H"+AS) :NEXT 1 

60 .VOICE C0PY(A3«. 8631 

70 ■ 

80 DATA 0000, 

90 DATA F404. 

100 DATA 0003. 10FF, 00FF, 

110 DATA 0052. 02FF. 0000. 

120 ' 

130 POKE&HFA2C+16*l. 60 

140 ■ 

150 Tt="T180" 

160 AS="V13O608L8 623" 

170 Bt="Vl 10608L8 ®23 

180 C$="V130205Le ©12 

190 DJ="V140508L6 §63 evl00 

200 ES = "VM05Q8L8 @63 ev 1 00 

210 F$="V1405Q8L8 863 ©V100 

220 GI = "V11 Y23. 

230 H$="V10O4 L8 

240 It="V1207 L8 S0 

250 JI="V1204 L8 

260 ■ 

270 GG$="R1R2R4S!M! 1 6S!M! 1 6S!M! 1 6S1M! 1 6" 

:III="R1 L16V7DV7DV8DV8D V9DV9DV10DVt 0D 

VIlDVl IDV12DVI2D S0M21 00D1 6D1 6M2000D16D1 

6L8'' 

280 ■ 

290 Ali="06A>CEA CAE<E GB>D<B >DG<BE 

300 C1I="02 AAAA AAAA >G<GG>G< GGGG 

310 D1$ = "05R804A02AA!,AQ4A4. Q8G4R8Q4G Q8G 

4. Q2G 

320 E1S = "06R8Q4CQ2CC&C04C4, <Q8B4RSQ48 Q8 

B4. Q2B 

330 FU = "06R804EQ2EE&E04E4, 08D4R804D 08D 

4. 02D 

340 G1I="C!B!H8H8C!S!HM!8H8 C!BICtH8H8C! 

S!HM!8B!H8 C!B!H8H8C! S!HM!8H8 C1B!H8C!H8 

C ! S ! HM ! 8B ! H8 

350 H1I="04 V7AV8AV9AV10A VI lAVl 0AV9AV8A 

V7GV8GV9GV10G VI 1 GVl 0GV9GV8G 
360 Ilt="S0M1800R4D8R8 M2000R4D8R8 M1800 
R4D8R8 M2000R4D8V13D32V1 1032V1 0O32V9D32" 
370 JU = "05 V7EV8EV9EV10E VI 1 EVl 0EV9EV8E 

V7DV8DV9DV10D VI 1 DVl 0DV9OV8D 
380 ■ 

390 A2$="A>CEA CAE<E G+B>E<B >EG+<aG+ 
400 C2$="FFFF FFFF >E<EE>E< EEEE 
410 D2$ = "O5R804FO2FF8FO4F4. Q8E4R8Q4e 08E 
4, 02E 

420 E2$ = "05R8Q4AO2AA&A04A4, 08G + 4R804G+ 
8G+4. Q2G+ 

430 F2J:"O6R804CO2CCiCQ4C4. <Q8B4R8Q4B Q8 
B4. 02B 
440 H2$="04 V7FV6FV9FV10F V M FV 1 0FV9FV8F 

V7EV8EV9EV10E VI 1 EVl 0EV9EV8E 
450 J2$="05 V7CV8CV9CV10C VI 1CV10CV9CV8C 

-:V7BV8BV9BV10B VI 1 BV10BV9BV8B 
460 ■ 

470 C3t-"AAAA AAAA >G<GG>G< GGGG 
480 D3$ = "O5R8O4A02AA&A04A4. 08G4R8Q4G Q8G 
4. 02G 

430 E3S='06R804CQ2CC&C04C4. <08B4R804B 08 
64. Q2B 

500 F3S="O6R8Q4E02EE&E04E4. 08D4R8Q4D Q8D 
4. 02D 



510 ■ 

520 C4I="FFFF FF>F<F EEG+E >G+E<BG+> 

530 D4I = "05R8C!4FQ2FF&FQ4F4. 08E4R804E U8E 

2 

540 £4S = "05R8Q4A02AA&AQ4A4. Q8G + 4R804G+ Q 

8G + 2 

550 F4$="O6R8Q4CQ2CC5C04C4. <08B4R8Q4B 08 

B2 

560 G4S="C!B!H8H8C1StHM18H8 C1B!H8C!H8S! 

HM!8B!H8 C!B IH8H8C ISIHMIBH8 SIC!M!8S!M!a 

SIM! 16S!Mn6S!M!8 

570 I4$="S0M1800R4D8R8 R4M2000D8R8 R4M18 

00D8R8 M2100D8D8DI6D16D8" 

580 ■ 

590 A5t="06V14L8Q8e4 EI&E2 CEA4 

500 C5S="02 AAAA AAAA AAAA A>CEC< 

510 D5$="O504V15 O6AAV10O4AA AAAVI506A V 
1 0Q4AAAV 1 506A Q6V 1 5AV 1 0AV 1 0AV 1 5A 

S20 E5$="06Q4V15 O6CCV10O4CC CCCV15Q6C V 
10O4CCCV15O6C O6V10CV15CV10CV10C 

630 F5i="0604V15 Q6EEV10O4EE EEEV1506E V 
10O4EEEV15Q6E 06V1 0EV10EV1 5EV)0E 

640 G5$="B!H8BfCiH8S!M!H8H8 BIH8H8SIMI8B 
IHCI8 BtHC!8B!H8S!MIH8H8 B1H8H8SIMI8B1HC 
18 

650 H5I="04 V7AV8AV9AV10A VI iAV10AV9AV8A 
V7AV8AV9AVI0A V 1 1 AVI 0AV9AV8A 

660 I5I="S0M4000O4M1800D8R8 M2000R4D8R8 

M1800R4D8V13D32V1 iD32Vl 0D32V9O32 S0M2000 

R4D8VI 3D32V1 1D32V1 0D32V9D32"* 

670 J5I="05 V7EV8EV9EVI0E VI 1 EVI0EV9EV8E 
V7EV8EV9EVI0E VI 1 EV10EV9EV8E 

680 ' 

690 A6$^">C2<F4JcF4&F2 A4>C4< 

700 C6J^"FFFF FFFF FFFF AF>C<F 

710 D6$="0504V15 Q6FFV10Q4FF FFFV15Q6F V 

10O4FFFV15Q6F 06V1 5FV10FV10FV1 5F 

720 E6$="05Q4V15 Q6AAV10Q4AA AAAV15Q6A V 

10O4AAAV15O6A Q6V1 0AV 1 5AV! 0AV1 0A 

730 F6t="0604V15 O6CCV10Q4CC CCCVI5Q5C V 

1 0O4CCCV I 5060 Q6V 1 0CV 1 0CV 1 5CV 1 0C 

740 H6S='04 V7FV8FV9FV10F VI 1 FV10FV9FV8F 

V7FV8FV9FV10F VI ! FVl 0FV9FV8F 
750 J6S="05 V7CV8CV9CV10C VI 1CV10CV9CV8C 

V7CV8CV9CV10C VI 1CV10CV9CV8C 
760 ■ 

770 A7$ = "G1 GB>04 F32aG32&Gl 6S.GD<B 
780 C7J = "GGGG GGGG GB>D<B >G<GB>G': 
790 D7$ = '"O504V15 Q6GGVi0O4GG GGGV15Q6G V 
10O4GGGVI5Q6G 06VI 5GV10GV10QV1 5G 
800 E7$="0504V15 Q6BBVt0a4BB aBBV15Q6B V 
10O4BBBV15O6B Q6VI 0BV15BV10BV1 0B 
810 F7$="06O4V15 O6DDV10O4DD DDDV15060 V 
10Q4DDDV15O6D Q6V1 0DV10DV1 50V1 0D 
820 H7I="04 V7GV6GV9GV10G VI 1GV10GV9GV8G 

V7GV8GV9GV 1 0G VI IGVl 0GV9GV8G 
830 J7$="05 V7DV8DV9DV10D VI 1OV10DV9DV8D 

V7DV8DV9DV10D V) I DV10DV9DV8D 
840 ' 

850 A8$="F1 El 

860 C6S=-FFFF FFFF EEEG+ B>EG*E 
870 D8S="05O4V15 O6FFV10Q4FF FFFV15Q6F V 
10Q4EEEVI5Q6E Q6V1 5EV1 0EV1 0EV1 5E 
880 E8S-"05O4VI5 O6AAV10O4AA AAAV15Q6A V 
10Q4G+G+G+V15O6G+ 06V1 0G+V) 5G+V10G+V10G+ 
890 F8S="0604V15 O6CCV10O4CC CCCVI5Q5C 
5V10O4BBBV15O6B Q6V106V1 0BV1 5BV10B 
900 G8$-"BIH8B1C!H8SIM1H8H8 B!H8H8S!M!8B 
JHCI8 B!HC!8B!HeS!MIH8H8 B1C!8S!C!M!8B!C 
!8S!C1M!8 
910 H8S = "04 V7FV8FV9FVt0F VnFVI0FV9FV8F 

V7EV8EV9EVI0E Vll EVl 0EV9EV8E 
920 18S="S0M4000D4M1800D8R8 M2000R4D8R8 
M4000D4M1 800D8V I 3D32V 1 1 D32V I 0D32V9D32 S0 
M2100R8D8R8D8 
930 J8S=''05 V7CV8CV9CV10C VnCV10CV9CV8C 

O4V7BV8BV98V10B VI 1BV10BV9BV8B 
940 ■ 

950 AAJ^'Fl EG+BG+ >E<BGtE 
960 CAI="FFFF FFFF >E<G+B>E <BG+>E4 
970 DAS:'O504VI5 O6FFV10O4FF FFFVI506F V 
10O4EEEV15O6E 06V1 5EV10EV10EV1 5E V14 
980 EA$='05Q4V15 Q6AAV10O4AA AAAV1506A V 
1 0Q4G+G+G+V 1 5Q6G+ Q6VI 5G+VI 0G+V1 0G+V 1 5G+ 

V14 
990 FA$="O504V15 Q6CCV10Q4CC CCCV15Q6C 
5V 1 0O4BBBV1 506B 06V1 5BV 1 08V 1 0BV 1 5B VI 4 
1000 GA$='B1H8B!CIH8S!M1H8H8 BIHBH8SIMI8 
BJHCI8 B!HC!8B!H8S1M!H8H8 B !C!8S!C!M!8B ! 



CI8SICIM18 

1010 HAS="04 V7FV8FV9FV10F VI 1 FVl 0FV9FVa 
F V7EV8EV9EV10E VI 1 EVl 0EV9EV8E 
1020 IA!="S0M4000D4M1800D8R8 M2000R4D8R8 
M4000D4M1800D8V)3D32V11D32V10O32V9D32 S 
0M2100R8D8R8D8 

1030 JAS="05 V7CV8CV9CV10C VI ICVl 0CV9CV8 
C O4V7BV8BV9BV10B VI 1 BVl 0BV9BV8B 
1040 ■ 

1050 A9$ = "V14@4E>C<E>E< E>A<E>E< G4- D D2 
1050 G9t="C!B!H8H8S!HM!8B!H8 B!H8H8S!HM! 
8B!H8 8IH8B!H8SIHM!eB!H8 BIH8BIH8SIHMI8S 
!HM!8 

1070 J9I="S0M1800R4D8V13D32V1 1D32V10D32V 
9D32 S0M2000R4D8V13D32V1 1D32V10D32V9D32 
S0M1800R4D8R8 M2000R4D8D8'" 
1080 ■ 

1090 ABt="F4,C C4AF E4, <B B4G+E 
1100 G8t="8!HCI8H8S!HM18B!H8 CIBIHSHSSIH 
M!8B!H8 CIB! H8B1H8S1HM18BIH8 C!B!H8B!HaS 
!C!HM!8StHM!8 

1110 ID$="S0M!800R4D8V12D32V10D32V9D32V8 
D32 S0M2000R4D8V12D32V10D32V9D32V8D32 S0 
M1800R4D8R8 M2000D8R8D8D8" 
1 120 ' 

1130 AC$="A2 >C4E4 GD<B>D G4>D4 
1140 ADJ = "FC<A4 >F4C<A >E2!.E 
1 150 CD$="FFFF FFFF EEEE E 
1160 DD$="05R8Q4F02FFaF04F4.08E4R804E VI 
5EV14 

H70 EDS = "05R8Q4AQ2AA&AQ4A4. Q8G+4ft8Q4G+ 
V15G+V14 

1180 FD$="06R804C02CCfcC04C4, <Q8B4R8Q4B V 
15BV14 

1190 GD$="B!HCISH8SfHM!8B!H8 CIBIH8H8SIH 
M!8B!H8 CIBIH8B!H8SIHM!8B!hl8 CIS1MI8R8SI 
Ml 16SIM! 16S1M! 16S!M! 16" 

1200 HD$="04 V7FV8FV9FV10F VI 1 FVl 0FV9FV8 
F V11EV9EV7EV5E V3EV2EV1EV0E 
1210 ID$="S0M1800R4M1800D8V12D32V10D32V9 
D32V8D32 S0M2000R4D8V r2D32V 1 0D32V9D32V8D 
32 S0M1800R4D8R8 M21 00D8R8D1 6D16M2000D1 6 
DI6" 
1220 JD$="05 V7CV8CV9CVI0C VI ICVl 0CV9CV8 

<V1 1BV9BV7BV5B V3BV2BV1BV0B 
1230 ■ 

1240 ■ 

1250 PLAY «2, T$. It. TI, TI, TS, TJ. TI, T$, T$. 

TS 

1260 PLAY #2. AS, B$,CS. DS. E$. FS.GS. Ht, 1$. 

JI 

1270 PLAY »2. Al$. AIS 

1280 PLAY #2, A2J. A2S, "', "". "". "■', GGS. "'. 

Ill 

1290 PLAY #2. AU. AU, CIS, Dl$. Ell. FlS, Gl$ 

, Hii, 1 1$, ji$ 

1300 PLAY #2. A2$. A2S. C2I. D2$. E2J. F2S, GIS 

, H2$. 11$. J2J 

1310 PLAY #2. AIS, All, CSS. D3J, E3S, F3S. Gl$ 

. HI $, I II, JIS 

1320 PLAY #2. A2J. A2S, 04$, D4$. E4$, F4$, G4S 

. H2$, !4S. J2t 

1330 PLAY #2, "V14"+A5$. "V12"+A5$. CBS. D5S 

. E5$, F5S, G5I. H5S. IBS, J5I 

1340 PLAY «2, A6S, A6S.C6S.D6t. E6$, F6S.G5S 

. H6I, 15$, J6$ 

1350 PLAY #2. A7$. A7$, 07$, D7$, E7S. F7$.G5$ 

, H7S, I5S, J7S 

1 360 PLAY #2. A8$. A8$. CSS, DBS. E8$, F8S, G8$ 
, H8S, 18$, J8S 

1370 PLAY #2, A5$. ASS. CSS, DBS, ESS, F5t, G5t 

,H5$, I5S, J5$ 

1380 PLAY tt2, A6S, A6I, C6$, D6I, E6$, F6S.G5S 

, H6S. 15$. J6$ 

1390 PLAY #2, A7$. A7$, C7I. D7$, E7$, F7I,G5S 

, H7S, 15$. J7S 

1400 PLAY #2, AA$, AA$, CAS, DAS. EA$. FAS. GAI 

, HA$. iA$. JAS 

1410 PLAY S2. A9I, A9I, CIS, D1S. El$. Fl$, G9$ 

, Hl$, 19$, JIS 

1420 PLAY «2, AB$, AB$, C2S, D2S. E2$. F2$. G8$ 

. H2I. 19$, J2$ 

1430 PLAY #2. ACS. ACS. C3$, D3S. E3$. F3S, G9$ 

, Hl$, I9S, JIS 

1440 PLAY «2, ADS, ADS, CDS. DDt. EDS, FDS, GDI 

, HD$, IDS. JDS 

1450 PLAY #2, "e23V!3". ■■@23V1 1" 

1460 ■ 

U70 GOTO 1290 
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<r)^^^^mW^m^-^ibifX^^< 

t. 3-^k5t^m^^^izmi^^< 



'l4K^feoTL^^ztt. ^>a 

%tm. mi^BsitZ(r>^>n-X 
^ < ;uia 'J C75 3 y^Tcmt-lSA^'i: "b 

yp-tz^T-t±i^U^<^T < ^;^^ib 
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m^^Mlzu^^ayyji^izmtL^ 
t^^ti'o-^t^^j:^^<7)X\ mm 

i^n^(r>X'itfsi-^fj\ sb^iHtm 
$n-mef>xi^^^ 
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HP ^0 ilF 



nmmmmi^m 








-^>n~xi,v^mm.<7)mi\^x$^ 

t" ii\.^ir^mizM^)&A.x\^fz. 
zzx'm^U(r)ii. ''$mm''ti'- 

fm^\j£L<mmmz-^/^X'^'^o 
m^Hz^mm^xitSi § (tnr. 

m^^^ji'XW-m^^mmmizi^ 

sb^<t:.t^^pLmLfz, (Dh 

(immzU':>x\-^^zt^\^ ■ -f 

5 [S]i^^1±?:5i^T"^ -& - t *<^ 

?T.yn ^5 ATii, 1110^(7) 
56;!)^'^ 7 'Xitt X'<7)miL7M^ti- 

izxr>xi-^mm^m^Lx < 



7t(Dmmt'^'^it^'Ut^tzm 
'nrnxm^^nxi^^itt. n:^ 

z(Dw^mzxoxmttitz^ 
■m)\z-^ttix\.^^ti^t^^imu 

^ht\z. zti^ zd6t<DW-m±. 

itnxv^^m'it^^zni.xm 

V.z--^<DBi^iz'.1U^^\<o 

w<7)Stc7)$t5s/)- b ¥iii(]). dx 

tJTie<7>S:l^^##(- LX(5Llv 
^^JiS^I#f^^7°P ^'^ Ac7:)(IA^ 
jm'ij XA:^<f^L < miX^^X^^ 
BASIC^ii^T-^ §A^j:ibMSX[C 




giii$ll^/;6;^jB- * 

:Sffi4635RCSii2i] 
T 162 magBff^E'J^JI|fflT6-29 
|ft&»/SS03-3260-0141 



NG w^^^msmmy/pj^ 

(xz.YZ)-(AX.AY) ^7^-r§e,'^®iia^^ 

FNXC). FNYO -^^^^mz^M^^ 

Ne msmwJMXSsm 

N3 ^ti^^Si?r5X^':'<7mfiE®AS^ 

xxc ), YY( ) m^^ov-i\jm^^^i^^^^^^^^u.^wmmm) 

KT ^-^jb^s^QQ/s^-re 



110 Axsf^lH^■^<lS 



AI»]Bg-^A.*5<iS 



t3£ 



^mmmm'^myn^^^ix 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
OLOR 
1110 
1120 
1130 
1140 
1150 
1160 
1 170 
1 180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1280 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 



DEFINT I-N:N2=?:N3=200 
DIM KJ(N2. N3), KK (N2.N3),G(N2-1) 
DIM !D(N2*2-1). ZX(N2-!), Zy(N2-l). K(N2-1) 
DIM D(N2*N2-N2~1),ML(N2*2-I) 
DIM XX(N2*2-J. 1), YY(N2*2-1, 1) 
DEF FNFXd. J. A. B) = (ZY(J)*A-Zy(n«B)/D(I*NG+J) 
DEF FNFY (I. J. A. B) = (ZX (I) *B-ZX (J) *A) /D (I*NG+J) 
DEF FNFKCI. J, K)=KK(I, J)-G(I)-K 
DEF FNX (X) =20*X+256 
DEF FNY(Y) =106-10*Y 

SCREEN 7. 0:COLOR 1 5. 1, 1 :CLS:COLOR= (9, 0, 7. 0) :C 
= (7, 0, 0. 7) 
NG=5 

FOR 1=0 TO 2*N2-1 STEP 2 
ID(1)=I + 1 :ID(I + 1)=I 
NEXT I 
KS=NG MOD 2 
P=(1+KS)*ATN(1)*4/NG 
FOR 1=0 TO NG-1 
ZX(I)=COS(I*P) :ZY(I)=SIN(I«P) 
IF i<S=l THEN G(I)=1/NG ELSE G(I)=.5 
NEXT I 
XA=0:YA=0 

FOR 1=0 TO NG-) :KJ(I,0}=INT(G(I))+1 
IF G(n<0 THEN KJ(I.0)=KJ(I. 0)-I 
XA=XA+KJ(I, 0)*ZX(I) :YA=YA+KJ{I, 0)*ZY(I) 
NEXT I 

L1=0:KJ(NG, 0} =0 
FOR J1=0 TO NG-2 
FOR J2=J1+1 TO NG-1 

(J1 *NG+J2) =ZX (JO *ZY (J2) -ZX (J2) *ZY (J1) 
NEXT J2, J I 
L = L1 

FOR 1=0 TO L 
FOR J=0 TO NG 
KK(J, I) =KJ(J. I) 
NEXT J, I 
LI=-1 

FOR JJ=0 TO L 
XZ=-XA:YZ=-YA 
FOR 1=0 TO NG-i 
XZ=XZ+KK(I, JJ)*ZX(I) 
YZ=YZ+KK(I, JJ)*ZY(I) 
NEXT I 

XX (0. 0) =FNFX (0. I.FNFK(0. JJ. 0).FNFK(I. JJ. 0) 
YY (0. 0) =FNFY (0. 1 . FNFK (0. JJ. 0) . FNFK (t. JJ. 0) 
XX (0. 1)=FNFX(0. l.FNFK(0. JJ. 0).FNFK(1, JJ, l! 
YY(0, 1)=FNFY(0. 1. FNFK (0. J J. 0). FNFK(1. JJ. ][ 
XX (1 . 0) =FNFX (0. 1 . FNFK (0. JJ. 1 ) . FNFK (1 . JJ. 0) 
YY (1 . 0) =FNFY (0, 1 . FNFK (0, J J. 1 ) . FNFK (1 , JJ. 0) 
XX (1 , 1 ) =FNFX (0. 1 . FNFK (0, J J. 1 ) , FNFK (1 . JJ. 1 i 
YY(1. 1)=FNFY(0. 1. FNFK (0. J J, l).FNFK(l. J J. 1] 
XX (2. 0) =XX (0. 0) : YY (2. 0) =YY (0. 0) 
XX (2, 1) =XX(1, 0) :YY(2, 1)=YY(1. 0) 
XX (3. 0) =XX (0.1): YY (3. 0) =YY (0. 1 ) 
XX(3. 1) =XX(1. 1) :YY(3, 1}=YY(1. 1) 
FOR 11=0 TO 2*NG-1 

IF II<=3 THEN ML(II)=1 ELSE ML(II)=0 
NEXT II 

FOR J1=2 TO NG-1 
10=0:11=0 

FOR J2=0 TO J 1*2-1 
IF ML(J2)=0 THEN GOTO 1800 
D0=XX(J2. 0)*ZX(Jl)tYY(J2. 0)*ZY(J1) 
D1=XX(J2. l)*ZX(Ji)+YY(J2. l)«ZY(J1) 



1640 K1=D0<FNFK(J1. JJ, 0) :K2=D1<FNFK (Jl. JJ. 0) 

1650 IF N0T(K1 OR K2) THEN ML (J2) =0 :GOTO 1800 

1660 IF Kl AND K2 THEN GOTO 1720 

1670 J3=J2 ¥ 2:J4=J2 MOD 2 

1680 XX (J2, -Kl) =FNFX(J3, Jl. FNFK (J3. JJ. J4) . FNFK (J 1. 

JJ. 0)) 

1690 YY(J2, -K1)=FNFY(J3. Jl , FNFK (J3. JJ. J4) , FNFK (J 1. 

JJ. 0) ) 

1700 XX (J 1*2. 10) =XX(J2. -Kl) :YY{JI*2, 10) =Yy (J2. -K!) 

1710 IF 10=0 THEN 10=1 ELSE ML(J1*2)=1 

1720 K1=D0>FNFK (Jl. JJ. 1) : K2=01 >FNFK (Jl . JJ. 1) 

1730 IF N0T{K1 OR K2) THEN ML (J2) =0 :GOTO 1800 

1740 IF K! AND K2 THEN GOTO 1800 

1750 J3=J2 ¥ 2:J4=J2 MOD 2 

1760 XX (J2. -Kl) =FNFX(J3, Jl, FNFK (J3. J J, J4) . FNFK(J1, 

JJ. D) 

1770 YY(J2. -Kl) =FNFY(J3. Jl. FNFK (J3. JJ. J4) . FNFK(Jt. 

JJ. D) 

1780 XX (J 1*2+1, II) =XX(J2. -Kl) ;YY(J1*2 + 1. I1)=YY(J2. 

-Kl) 

IF 11=0 THEN 11 = 1 ELSE ML(J1*2+1)=1 

NEXT J2. Jl 

NS=-I 

FOR 11=0 TO NG»2-1 

NS=-NS 

IF ML(II)=0 THEN GOTO 2190 

IQ=KK(NG. JJ) AND 2"I0(II) 

IF IQ<>0 THEN GOTO 2190 

iO=II ¥ 2 



1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 



1880 AX=XZ+NS*ZX(I0) : AY=YZ+NS*ZY (10) 

1890 IF ABS(AX)>11 OR ABS (AY) >9 THEN GOTO 2190 

1 900 L INE (FNX (XZ) . FNY (YZ) ) - (FNX (AX) , FNY (AY) ) . 1 5 

1910 FOR 1=0 TO NG-1 

1920 K(I) =KK (1. JJ) :IF 1=10 THEN K (I) =K (I) +NS 

1930 NEXT I 

1940 IF Ll=-1 THEN GOTO 2140 

1950 FOR J=0 TO LI 

1960 FOR 1=0 TO NG-1 

1970 IF KJ(I,J)<>K{I) THEN GOTO 2130 

1980 NEXT I 



1990 

2000 



N4=-1 :ZM=-1 

FOR 1=0 TO NG*2-1 



2010 N4=-N4 

2020 IF (KJ(NG, J) AND 2'l)=0 THEN GOTO 2050 

2030 ZN=N4*NS* (ZX (U2) *ZX (10) +ZY (I ¥2) *2Y (10) ) 

2040 IF ZN>ZM THEN ZM=ZN : IJ=I*2:N1 =N4 

2050 NEXT I 

2060 XB=AX-. 5»(N1*ZX(IJ) +NS*ZX(IO)) 

2070 YB=AY-. 5*(N1*ZY(IJ) +NS*2Y(I0)) 

2080 IF ZM=0 THEN AC=2*ATN(1) ELSE AC=ATN (SQR (1 -ZM 

*ZM) /ABS (ZM) ) 

2090 KT=INT(AC*NG/4/ATN(l}+.5) 

2100 PAINT (FNX (XB), FNY (YB) ) . KT+6. 15 

2110 KJ(NG. J)=KJ(NG. J) +2' 1 1 

2120 GOTO 2190 

2130 NEXT J 

2140 L1=L1+1:IF Lt>N3 THEN STOP 

2150 FOR 1=0 TO NG-1 

2160 KJ(I. L1)=K(I) 

2170 NEXT I 

2180 KJ(NG. L1)=2"ri 

2190 NEXT II, JJ 

IF LI <> -1 THEN 



2200 

2210 COLOR 

2220 END 



1310 
15:A$ = INPUT$(I) 



AxJtD*H^*><lg 111 




■yDy5S.y<W¥. 







Listi ^m^mot>{-f^ 

6 DIM TW$(6) .TH(6) 

11 TW=fl' 

17 RESTORE 32M^:F0R l=B TO 6: READ TW$ ( 1 

) .TB(I) :NEXT I 

71S4iS IF Y=8 THEN TW=0:GOTO 71M 

70518 IF Y=13 THEN TW=1:G0T0 71M 

70618 IF Y=38 THEN TW=2:G0T0 710B 

7070 [F Y=19 THEN TW=3:G0T0 7100 

7080 IF Y=21 THEN TW=4:G0TO 7100 

7090 IF Y=57 THEN TW=5 ELSE TW-6 

7100 LOCATE 1.1:PRINT TW${TW); 

7530 M$="thA' y"+STR$(TH(Tff) )f"GOLDT ^. " : 

GOSUB 3000:M$ = "^h7'J- t'j7;t;5?" : GOSUB 3000 

7580 IF GP<TH(TW) THEN IA$=" f V^yf ^tl' ttl 

^fl' ?Ut'f3'?f ?>. " :GOSUB 3000:GOTO 7100 



7590 M$="t a 3' Xf^^i- ■ 
-TH(TW) :HP=HM 
32000 ' 7f f -9 NAME 
32010 DATA ^^^X^-/' 3^. 
32020 DATA ttft^H' "i*. 
32030 DATA fi}' 9f)V , 
32040 DATA -ffj^' t-f' . 
32050 DATA ^^9' A' yfi, 
32060 DATA ^fT 1u-V , 
32070 DATA 91- J V^. 



: GOSUB 3000:GP=GP 

■^-K t 

5 

15 

30 

75 

150 

300 





List2 y-CrhV^^ifZf^m 

1 CLEAR 1000.&HD7FF 

4 DEFINT A-Z:DIM MB$ (5) , MAS (63) , ME$ (63) . 
IN$(15). JP(15). IT{7).EU(35) 

5 DIM ENS (10). EH (10). ES (10). EF (10). ED (10 
),EX(10),EG(10) 

6 DIM TWS(6) ,TH(6).TF$(6), IL(ll) 

12 RESTORE 30000: FOR 1-0 TO 15: READ IN$( 
I). IP (I) iNEXT 

13 IM-0 

17 RESTORE 32000 : FOR 1=0 TO 6: READ TW$ (I 
) .TH(I) ,TF${I) :NEXT I 
7210 IB=0;GOSUB 7900 



RND(1)*ES(ES)*.1) 

RND(1)*ES(EN)*.1) 

"Subscript out of range"C0 x =? 



TLS9. ^mm. v-i>v-^'D 

Z^X\ L^OtJ:'J3t^^'<-^ 



7220 FOR 1-0 TO 11 : IF MID$ (TF$ (TW) , I +1. 1 

)="1" THEN IL(IB)=I : IB=IB+1 

7230 NEXT I 

7240 M$=" y ^r t^ a'?^'/. " : GOSUB 3000 

7250 IF lB-0 GOTO 7300 

7255 M$="3' ^^)\ fyf' XiiT : GOSUB 3000 

7260 LOCATE 1,3: PR I NT" ^^" 

7270 LOCATE 1.4:PRINT" W 

7280 CY-0:CX=1:CA=3:CM=1:GOSUB 1500 

7290 ON Cfl GOTO 7490,7300.7390 

7300 IF IM=0 THEN MS="t-t :ftff f^^^fXii 

' . " : GOSUB 3000; GOTO 7440 

7305 GOSUB 7900:M$="t-? ^ ^}=.fy\^7Xii 7" -.GOSU 

B 3000 

7310 GOSUB 3300: IF C=0 GOTO 7440 

7320 A=!NT(IP(IT(C-l))/2) :M$= INS (IT (C-1 ) 

)-f-"A"+STRS(A)+"GOLDf tt^h'J^-YX. " :GOSUB 3 

000 

7330 M$=" 30-^0' X*?" :GOSUB 3000 

7340 LOCATE 1.3: PR I NT" A-f" 

7350 LOCATE 1.4:PRINT" ^^X" 

7360 CY-0:CX=1:CA=3:CM=1:CC=C:GOSUB 1500 

7370 GOSUB 3400: GOSUB 7900: IF C=l THEN C 

=CC:GOSUB 4700 :GP=GP+A : GOSUB 3600:M$="r!J 

;J' f-? 3' r ^-^yf. " :GOSUB 3000 

7380 GOTO 7440 

7390 GOSUB 7900:MS="t-? i[il^7f' ^f*)^Xii7'' :G 

OSUB 3000 

7400 FOR 1=1 TO IB:LOCATE l.I+2:PRINT IN 

$(IL(I-1) )+SPACES(10-LEN(IN$(IL(I-l)))) ; 

MID${STR$(IPCiL(i-l))) ,2) ; :NEXT I 

7410 CY=0:CX=0:CA-3:CM=IB-1:GOSUB 1500 

7420 IF GP<IP(IL(C-1)) THEN M$="r V+Vf ^ 

il' ;r*+;ft' fUT-fey. " :GOSUB 3000:GOTO 7440 



112 ^■y+-<»7'n?'7 5>5'-i:#'^ ! 



7P^55>^.=W! 



mizx^tzt^(DYmmx\ t:(D 



^ 5' — fxl^ff) 'RPGCHR.BAS'CT^y 
n^^AA^ib. "RPGMAIN.BAS" 

ZX\ RPGCHR.BAS<7)20^^, iii 

20 clear 1000,&hd7ff:run" 
rpgmain.bas" 

zztx\ ^<^^i:i5^7'< 

Lfz<Dtl\ ^)X V 3tz. 

mizm^iiB^^^x-$fz(7^fzti'h. 



7421 IF IM=8 THEN M$="tfty*' 'itn'^J 3'>f 
X. ■':GOSUB SiSISB:m="^i^il Xf^itUf^r f'i." '.GOS 
UB 3000: GOTO 7440 

7422 GOSUB 7900:M$=IN$ (IL (C-1) ) t-f' aoy-f 
f A*?" : GOSUB 3000 

7424 LOCATE 1,3: PR I NT" M" 

7426 LOCATE 1.4:PRINT'' -f^X" 

7428 CY=0:CX=1:CA=3:CM=1:CC=C:GOSUB 1500 

7430 IF C=l THEN IT (IM) =IL (CC-1) : IM=IM+1 

:GP=GP-lP{iL{CC-l)) :GOSUB 3200:GOSUB 360 

0:m="7*}il' f-y 3' t' -fVy?. " :GOSUB 3000 

7440 GOSUB 7900:M$="**r. 3' 3-) A r!J7X«?":G0 

SUB 3000 

7450 LOCATE 1,3: PR I NT" M" 

7460 LOCATE 1,4:PRINT" 'f-fX" 

7470 CY=0:CX=1:CA=3:CM=1: GOSUB 1500 

7480 GOSUB 7900: IF C=l GOTO 7255 

7490 M$="7?/ ^:iy9 3r7fyt*!J7:i. ": GOSUB 3000 

:GOTO 7100 

7610 M$="*A3«:; 3' r -(VX. " :GOSUB 3000:M$=" + 

?7yf 'f7t77yt'f7-fe. ": GOSUB 3000:GOTO 7100 

7900 FOR 1=3 TO 10: LOCATE 0, I : PR I NT SPAC 

E$(16) ; :NEXT 1 : RETURN 

30000 ' ITEM NAME 

30005 DATA ^<f5, 

30010 DATA '^<^j2, 

30015 DATA ^<fHurboR, 

30020 DATA JfliWlJi, 



30025 DATA Himibl. 
3BB3I9 DATA pmtbl. 
30035 DATA Xo<nibl, 
SBSIAB DATA lAiP^OifcL. 
30045 DATA <' ^•C, 
30050 DATA >'J>yt7?. 



PRICE 

5 

30 

200 

50 

10 

50 

300 

2000 

20 

100 



Lists ''m^o(Ob^"(Dmm 

6 DIM TW$(6).TH(6),TF$(6). IL(U),TX(6).T 

Y(6) 

9 X=54 : Y=8 : WY=18 : HP=20 : HM=HP : ST=2 : DF=2 : D 

X=2:LV=1:EX=0:GP=1000:GOSUB 3600 

17 RESTORE 32000: FOR 1=0 TO 6: READ TW$ (I 

) , TH (I ) . TF$ ( I ) , TX ( I) . TY U ) : NEXT I 

4230 ON IT<C-1)+1 GOTO 4240.4270.4280,43 

00. 4290. 4290. 4290. 4290, 4290. 4290, 4290, 42 

90. 4290. 4290, 4290, 4290 

4300 PLAY"V15L1604C05C06C04C#05C#06C#04D 

05D06D04D#05D#06D# 

4310 FOR 1=1 TO 200:CaLOR .,7:C0L0R ,,0: 

NEXT I :X=TX(TW)+1:Y=TY(TW) :GOSUB 5000 

4320 GOSUB 4700: GOSUB 3400: GOTO 4000 

7040 FOR 1=0 TO 5 

7050 IF Y=TY(!) THEN TW=I:GOTO 7100 

7060 NEXT I :TW=6 

7070 'fX 

7080 ■ fX 

7090 'fX 

lABB FOR 1=1 TO IB:LOCATE 1. I +2 : PRINTINS 

( IL( I -l))f SPACES (10-LEN (INS (IL(I-l)))) ;M 

ID${STR${IP(IL(I-1))),2) ;:NEXT I 

32010 DATA ^ittXW a"). 5. 1000100010 

00.53.8 

32020 DATA *tft>h' -i. 15. 1001110010 

00,9, 13 

32030 DATA tr ?')>', 30, 1101010011 

00,9,38 

32040 DATA -ff*' t-K , 75. 1101011001 

00.51.19 

32050 DATA A ^9' >\' -/fu 

10.58.21 

32060 DATA ^'Tt 7a-^' , 

01,22, 57 

32070 DATA 9V-n*f, 0. 0000000000 

00. 10. 52 



150. 1111001001 
300. 0111000100 



30055 DATA Xrxn^)ii. 580 

30060 DATA yi>D(Otin. 3000 
30065 DATA f -Xff)\- V9' VV.g 

30070 DATA iV , 

30075 DATA iV . 

30080 DATA W . 

32000 'Vf f -9 NAME +Kt 



32010 DATA ^^jXW 3>), 

1000 

32020 DATA t^ffW -i. 

1000 

32030 DATA fit' 9*)V. 

1100 

32040 DATA -ff*' t-h' , 

0100 

32050 DATA -fO' A' -jfi. 

0110 

32060 DATA ^ft ?n-K , 

0001 

32070 DATA 9l-JV^. 

IS000 



5, 

15, 

30. 

75, 

150. 

300, 

0. 



10001000 
10011100 
11010100 
11010110 
11110010 
01110001 
00000000 




^■y^-(7yynir=y = >?-(:: ^^3 \ -j-is 



List4 ^htiit1S(Dmm 

2flr55 IF HP<=j0r THEN HP=0 

2flr65 IF HP=j0- GOTO 37SSSI 

37 0B ' Uyr i^g'J 

371£r COLOR , , 8:M$="rt?A y^t' ^V^? ■ ■ • " :GOS 

UB 3Mir:G0SUB 31M 

372af GP=INT(GP/2) :X=TX(TW) +1 :Y=TY<TW) : HP 

-HM:GOSUB 50B8 

3735 COLOR ..flr:GOSUB 36M: RETURN 




Lists y^^h^mmt^ 

4 DEFINT A-Z:DIM MBS (5) , MAS (63) . ME$ (63) , 

1N$(12). IP(12), IE(12), IT(7),EU(35) 

12 RESTORE 313000 -.FOR 1=0 TO 12: READ 1NS( 

I) , IP(I) , IE(I) :NEXT 

1000 ' 

15«0 ' 

2M5 GOSUB \0000 

225flr A=iNT(RND(l)+6)i3:MS-"■y3^r;$' " +STR$ (A 

)V'rii' ?^!" :ST-ST+A: GOSUB 3M0: GOSUB 3\00 

2100 ' 

273flr ON iT(C-l)+l GOTO 2740. 277]?. 278j?. 27 

90, 2790, 2790, 2790, 2790, 2790, 2790. 2790. 27 

90.2790 

3000 ■ 

3200 ■ 

3300 ■ 

3400 ' 

3700 ■ 

4200 ' 

4230 ON IT(C-l)fl GOTO 4240.4270.4280.43 

00. 4290. 4290, 4290. 4290, 4290, 4290, 4290. 42 

90,4290 

4500 ' 

4530 ON IT{C-1)+1 GOTO 4540,4540,4540.45 

40. 4570, 4570. 4570. 4570. 4560. 4560, 4560, 45 

60, 4550 

4560 ST=ST-IE{IT{C-1)) :GOSUB 3600:GOTO 4 

540 

4570 DF=DF-IE(iT(C-l)) :GOSUB 3600:GOTO 4 

540 

4700 ' 

4800 ■ 

6000 ' 

6080 ■ 

7000 ■ 

7170 GOSUB 7900:GOSUB 10000:GOSUB 5000:G 

OTO 4000 

7200 ■ 

7340 CC=C: GOSUB 8000 

7350 ' fX 

7360 ' yx 

7370 GOSUB 3400; GOSUB 7900: IF C=0 GOTO 7 
440 

7371 IF iT(CC-l)>3 AND IT{CC-1)<8 THEN D 
F=DF-IE(IT(CC-1)) :GOSUB 3600:GOTO 7373 

7372 IF IT(CC-1)>7 AND IT(CC-1)<12 THEN 
ST=ST-IE(IT(CC-1)) iGOSUB 3600 

7373 C=CC; GOSUB 4700 :GP=GP+A: GOSUB 3600: 



Liste n^yxmmmmii^ 

1 CLEAR 1000, &HDBFF 

4001 A$-INKEY$ 

4002 IF AS="1" THEN GP=GP+ 1000: GOSUB 360 
0:GOTO 4010 

4003 IF A$="2" THEN HP=HM: GOSUB 3600: GOT 
4010 

4004 IF A$ = "3" THEN EX=EU (LV-1) rGOSUB 36 
00 



M$-"7'J*' ^•? 3' r -fVy?. " : GOSUB 3000 

7400 FOR 1=1 TO IB:LOCATE 1. 1+2 :PRINTIN$ 
( I L (I - 1) ) f SPACES ( 10-LEN ( i N$ { I L ( I -1 ) ) ) ) ; M 
ID$(STR$(IP(IL(I-1))).2) ; :NEXT I 

7401 CY=0:CX=0:CA=3:CM=IB-1:GOSUB 1500 

7402 IF C=0 GOTO 7440 

7403 IF GP<IP(IL(C-1)) THEN MS="r ^=t-:^f ;^ 
il' :r**;$' ?'J7-t^. " : GOSUB 3000: GOTO 7440 

7404 IF iL(C-l)<4 OR IL(C-1)>7 GOTO 7413 

7405 IF IM=0 GOTO 7412 

7406 FOR CI=1 TO IMiIF IT(C1-1)<4 OR IT( 
CI-1)>7 THEN NEXT CI :GOTO 7412 

7407 IF IL(C-1)=IT(CI-1) THEN M$="t'> tfy 

' t/? iffivi^nraw xi}' . " igosub 3000: goto 74 

40 

7408 IF IL(C-1)<IT(CI-1) THEN M$="t7h'{'(* 
' ^r 9 tify \f^f Xil. " :G0SUB 3000:GOTO 744 


7409 GOSUB 7900:M$-IN$(IL(C-1))+"T ;t+" :G 
OSUB 3000:A=INT{IP(IT(C-1) )/2) :MS="f A 4 
■7iff-i^ "+IN$(IT(C1-1))+"?" :GOSUB 3000:M$ 
= STR$()f"GOLDf tt^hUyg-?. " :GOSUB 3000:M$ 
^M'ff Xi}7" :GOSUB 3000 

7410 CC=C: GOSUB 8000 

7411 IF C=l THEN GP=GP- IP ( IL (CC-1) ) +A : DF 
=DF-IE(IT(CI-1))+IE(IL(CC-1)) : IT{CI-1)=I 
L(CC-1):G0T0 7435 ELSE 7440 

7412 GOSUB 7900:M$-IN$(IL(C-l))f"T 9nW 
f X;*^?" : GOSUB 3000 : CC=C : GOSUB 8000; IF C=l 

THEN IT(IM)-IL(CC-1) : IM= IM+1 :GP=GP-IP ( I 
L(CC-l) :DF=DF+!E(IL(CC-1)) :GOTO 7435 ELS 
E 7440 

7413 IF IL(C-1)<8 OR IL{C-1)>11 GOTO 742 
2 

7414 IF IM=0 GOTO 7421 

7415 FOR Cl-1 TO 1M:IF IT(CI-1)<8 OR IT( 
CI-1)>11 THEN NEXT CI :GOTO 7421 

7416 IF IL(C-1)=IT(C1-1) THEN MS="t') iifv 
' iJ9 ^ff^jl/ArBfJr y^il' . " : GOSUB 3000: GOTO 74 
40 

7417 IF IL(C-1)<IT(C1-1) THEN M$="tyh'(-(7 
■ ^f nfy 'rHf A*. " :GOSUB 3000:GOTO 7440 

7418 GOSUB 7900:M$=IN$(IL(C-1))+"T X+" :G 
OSUB 3000:A-=INT(lP(IT(C-l))/2) :MS="f A '( 
7t7f'f/I' " + IN$(IT(CI-1))+"?" iGOSUB 3000:M$ 
=STRS()+"GOLDf ^t^h'Jya"). " :GOSUB 3000:M$ 
= 'M'(f Xiir- : GOSUB 3000 

7419 CC=C: GOSUB 8000 

7420 iP 0=1 THEN IT (Ci-1) =1L (CC-1) :GP=GP 
- 1 P { I L (CC-1) ) +A ; ST-ST- 1 E ( IT (CI - 1) ) + 1 E (I L 
(CC-1)):G0T0 7435 ELSE 7440 



114 ^ 7+— ot^p^'t 5 >:*'ICP4' ! 



:;p^5H>^,=»! 









7421 GOSUB 7900:M$=IN$(lL(C-l))+"f 30-/^ 
f X*?":GOSUB 3jff0Jff:CC=C: GOSUB 8M0:IF C=l 

THEN IT(iM)=IL(CC-l) ; IM= IM+1 :GP=GP- IP (I 
L(CC-l) :ST=ST+iE(IL(CC-l)) :GOTO 7435 ELS 
E 744H 

7422 IF IM=8 THEN M$="tft/*' ^fi\' V 
X. ":GOSUB 30j0rH:M$-"'>M Xf^ii'jfir'^A,' 
UB 30^0; GOTO 744^ 

7423 GOSUB 79j0[j0':M$=IN$ ( IL (C-1) ) + 'f 
f X^T : GOSUB 3M^ 

7424 CC=C: GOSUB HSUSZ 
7426 ' yx 

7428 'Jrx 

743jEf IF C=l THEN IT (IM) -IL (CC-1) : IM-IM+1 

:GP=GP-IP(IL(CC-1) ) 

7435 GOSUB 32M:G0SUB 36M :M$=" r'JjJ' V^ 3' 

r '(Vi/?. " : GOSUB 3000 

7440 GOSUB 7900:M$="*J&- 3' 3*}i\ V^-^XiiT :G0 



3»>f 
:G0S 

3aW 



SUB 3000 

7450 GOSUB 8000 

7460 ' 'rX 

lAlg ' fX 



lASe GOSUB 7900: IF C=l GOTO 7255 

7500 ' 

7540 GOSUB 8000 

7550 ' fX 

7560 ' 'fX 

8000 LOCATE 1,3: PR I NT" M" 

8010 LOCATE 1,4:PRINT" AAX." 

8020 CY=0:CX=1:CA=3:CM=1:GOTO 1500 

30005 DATA S'<f5,5.0 

30010 DATA ^<f^2,30,0 

30015 DATA S*<f HurboR, 200, 

30020 DATA iii^i^U, 50, 

30025 DATA titrmthl . IIS . 5 

30030 DATA J'iX^Ji>L, 50,20 

30035 DATA TOtf)^^^ 300, 50 

30040 DATA lAi'Di^JfcL. 2000, 200 

30045 DATA <' ^T,20,5 

30050 DATA ;<!;yyt7?,100,20 

30055 DATA tr>W^ft, 500. 50 

30060 DATA yi-D^n. 3000. 200 

30065 DATA f -Xffy< vr VS. 0.0 

30070 ' V^ 

30075 ' ha- 

30080 ' V^ 

30100 ' 

30U0 ' 

31000 ' 

32000 ' 



^-t;"i:ltoTfcm[tTLio 



:ilJ[UXS 



AD 

AT 

C,C$ 

CA 

CC 

CM 

a 

CY 
DF 
DX 
DY 
ED 

EDdto S6ffl&jS{4y^^ 

EF SSorai^J 

EFdff) SS®K®P?J'J:^ I- 
Rid?) ^rafc^'jx h 



^ V ^ i--A;':im 

3-?y K^tR;*J-y-'^ 
7'w---l'-t 
9^ y F-I^YE 



[|):t. h 



EN ®S-^ 
EN$(10)g!!®SSif'M h 

ES Siffl^S 

ES(1?) ffiO-sES 'J 7. h 

EU(35> L"<^UT >• ygS6 

EX wm. 

EX(10) iKffllJSNI'J^ f- 

GP fitf^F^ 

HP yu—i'-ow;:': 

IB v-^vyoTi-xAasatSi 

iL(U) v-g -i/yOT-f tA n-7.V 

!N$(16)T^rAOgM 

IP(IS) - T-TrAfiBtg 

IT(7) RffJ^LTi.^5T-f rA 

LV ■^\^—^~0iv^}\' 

MS ^ v-b-v^^^ffl 
lilAS(63)-7-y7'T-''-? 

MB$(5) C-f > K~S^M 

ST yu— I'-O^S 

Tlf$(6) BTffl^m 

TH<6) Iffr®#(a?i4^ 

TFS{6) T-f r ASS^77?" 

IIY ■>-< :'K-fff1SS-Y^^ 

X yi'-- i—teM-xnti 

XI ^L— +-fiil-X^^ 

Yi T'l-— t-ai-Y^^ 



)i\y^}V^m^\.x^l^^ ^)7. 
h 6c757'n^'vA^iiiQ-r§t. 

KlOOOiiiP. ZX'\::'y \-7f^'<>b 
[slit. 3 T'U^JUT' -y ZfiZ'Smf^ 

mm^i^'DX^'~A^mit>^j:ij^h. 
xLir>tz['tt\ ^mtzntx-. 

S^; ^fi!iL/-U7.t-fc-^tzJf 

vmA.t~Ahfsmi-Mz^ 



it7Jb-f>U7K 



<«« fiPCMAIN.BAS >»» 



i; 






zm ^^o!im 

270 T'f^A^-^oiasi 



3100 
3200 
3300 



9-f > K — -o5:^tB:?7 

T-f-rA^Tp 

7-f r A-frk? h 
3400 r-f rA-feW? {-S?^ 
3500 Si®:^^-?:^^^ 

(fs-y-yji'-^y) 

3600 7'u-f ^-fflXr-;?:^^^ 

T-f?Ajifia(v.,y) 

T'fxAffiffi{v..7') 
T-f f A}*T5(V.y7^ 

> y-t-v^iU:^-!; V I- 
7-YxA^|II5:{C-l)# 



3700 
4000 
1100 
1200 



7500 ^momm 

7900 wrraiMJKS^i' vr- 

7900 T-f7^A-K(HS 
8000 'WZ-f-fx 
10000 HSffl^^t < 



<«« RPGCHR.BAS >»» 



SCREENl. 5-(i:i+ + 5 7 ?-^« 
SCREENl.S'ft^-T'-'i— f;' 
SCREENl. 5M++ 5 ? J?--?-? 



^■y^~m:/D^7 5>5^[i^+ I 115 



MSX turbo R 



mmmmtjKDitL 

MSX-D0S2:^- h U 'yv^dti 
li^-iiffl;^- vzizL TJUmtm LXgtz 
(?nt\ AlST;$;^{Z(JDOS2(75fe 
ir«*4;^MtaLTu=^d:L\ ttz. 

zx\ zm^X'^t. >^u-v 
t(iSi](75fe(75-c^U^ ;^p-yhc;5 

■1^ 'mA t / ^ U - 7 -y / ^-<7)■t:/] 

fcD0S2:':~ 1^ ij -y -xH(i7!)^':j:'b 
■f^fj. MSX2i:MSX2 + m— SISCO 



iHlUO^U-v-y/N-^^^^i 
^ < (7) RAM;^^^M ? n T i. ^ ^ V 

•y/'f— *\ Zc7)7°^-f7U— V-y 



— ->3 >yP^^Ac7)fci6(;)64 

xp-y ^#-§■/)<'J^?^,^(5^*\ y 
V -r V ij — ^ v ^ \— 1 4' So 



^SiBIOS 



^^ij~7-yy\-^, RS-232C 

-<>■?— yji~7.(r>Xi^£. MSX 

(Cffl.m^n/iBIOS^te^BIOS— M 
(ZOV,^Tli. MV^'c75'90^5^-§- 

c75ie^^#Bac7)Zi:o 

S, 16+P^\'< hmRAM^Se^T 

itmz<7)tz^o ? #pieui-L^o 

t. 8086CPU«J:T^j:-tz^^>l- 
^yU'lr— > 3 >yp ^'^ A;b^ 

^n-5-tz^v>hT\ yp^^A 




V^:^A-^I^7^-3'VU 



:*- 7 -fe y 1- 


msg 





-7 :;' v;-£D::^ n ■;. )-#-$- 


1 


leKRAM-fe:!'^ v KD|^«fe 


2 


*fiEffl'?J16KRAM-t?'> y >-<dSL 


3 


•>:^7-Aicm*)^~Chtitz i6KRAM-trr> ^ V o^B. 


4 


^-■<}'-fcm*)^^hi%tr ICKRAM-terj' i' 1- ioSt 


5'^7 


i^^ 


8- 






V':/A-y»3^T— 3?;b 



:^- 7 -t y f 



OH 



3H 



6H 



9H 



CH 



FH 



i2H 



15H 



18H 



IBH 



lEH 



21H 



14H 



27H 



2AH 



2DH 



^m 



ALL.SEG 



FRE-SEG 



RD-SEG 



HR-SEG 



CAL-SEG 



CALLS 



PUT-JH 



GETJH 



PUT-PO 



GET-PO 



P«T-P1 



GETJ>1 



P0T-P2 



GET_P2 



PUT-P3 



GET_P3 



16Ki^-tr> >• b*f!)D^-C5 



16K«-fer> y V 



A-kiT/v y<D'HL^^<Dl^-^-< )-^^tf 



A -fe r > >■ t- CQ HL 



E<D l^<^ vi-m< 



^ y ^ — b:^ / V (■ 3— VI- 



A V ^ ^*f ^ V h n— ^ 



-trj" V h«: -;"•>' (HL) k:E< 



■>*(HL)fDa:ftcD-b/> :' f#^?-ii5 



-tr> y f*^-->'0 k:^< 



•^'OcO^^-^-trj'v l-#^?r1#5 



-fer> y }■ Sr-^-i-' 1 k:E< 



:-■>• 1 (DlgiEcD-b?'^ y y-i=-^S:WS 



-tr>yb$:-<->''2 tc^< 



--;>'3<?3i|ffi'7J-fer^ y t-#-^5:^a 



M-i) L^i^ 



■-■^'afTJa^cQ-t?-/^ b#^ft^6 



116 7-lP--h)\^- T-t<}->:x 



T^-*;b-7tU£/X 



7°JKJ^— > 3 (7>D0SC7>7— :? X 
>:?— ;^Dv h=i— JUT-(J^d:<. 

S:*^{3U *S:*^MSX-D0S2U 
7 T U >;^ V - a 7'Jb'';^^'b<75?l 

mtz. fzizL-7-^r}\^xit. ^ 

■5Zt(cLfco ~(7)S?r=lt-L 

it^ti'allocate segment*:^" fbfc'o 
C n( JJl'— 9^ > ^ CALL L T. V -y 

a >7°P t^--^ AiZfiJUOtt^ fcc75c 



2 mi-XHTcltT ^ALL^SEG" ^3^ 
Hl^Jlti ■'allocate segment*Jl^ 

f-y [• 6. 5. AlitlJU-Ptt:^;* 

— C7)XP-y ^#-§-(i!"j:^c 

mt(Jj£(3. *free segment* 
;u-5^>[i. ^J^tz^-^/i-tr^V 

y □ ^^ A:^<|«T L T DOSdH 5 

\.\ %n^<r). *ROMMODE.COM" 
(nXl^£^^^UU^^B.^^X. g 

■JMztiJU-^tt'bnTU'j.-'.^-tr^y 

^. RAM7=-i-^^(Ifg*^tl,Tl^^ 



77/\-1t7tt-Nb-5^>-l 



DOSirii^-K^ii^/jiuiffl 



MSX-DOSKltJ. CPU<7):S? 

'fh^<r>fz^ ^<r>iz!^\MThomz 

;>y f-rS^:. DOS1<7)ROMi:Z80 

msy2+w^(n^mx\ -fn 

:nA'. turbo RfKJCPU^l:!] 



Oxj'A'turbo RT-$>-g):: t $: 
5S7^-i6. BIOSTCPU5rR800(C-tJ] 
U^;i§c ^ Ut. BDOSn— JU 
t£fX'T-^:^-^^i^')mt. 7° 
a:?*5A*^TT-5iiil-, CPU 

CPUiiDiJ^;lI->iELJ:9„ 1 



ALL_SEG® 



^^ allocate segment (ALL-SEG) 

:^ 7 -fe ■;. K +O0H 

A= 1 v-XTJU-irr> i' l-WtflOf^-l^ 
B = 

ifg^ + t y ~ ? y T 

B = 

figfflu^'^^- AF 

^^- :^ ^ y ? tt -< - •>' 1 :t 7c fi 3 



ALL_SEG(2) 



^^^ allocate segment (ALL-SEG) 

■ty-^^y y +(X)H 

Q=7.u-y f#^(Fxxxsspp) tn*)\^ii:^m 

FOOlSSPPffi^J^H^^a^ hflHf^t? 
FOlOSSPPig^J^o ;v )-i«5fc«l!*)f^t^* 
FOllSSPP ^^Pmy- a y MS*«ll*)(-tlt* 

i^m B = #JtlS-Cib*L/c-t?'> 1' f(D;^ □ y b#-^ 

^5-if@^ ++ !f--t ■/ V 

Sgfflu;^;^?- AF 



= FRE_ 


_SEG 


mm 


-t7> ^ bS:ftPS£-t-5 


* «l^- 


free segment {FRE.SEG) 


• ■ :t 7 -t y 1- 


+03H 


'^5 j<-^ - 


A = fSSS:+5-fe?'> ^ b^o^-^ 




B = fSK-f 5-f:r>^bi0^ay h 




(B = ftbtfyy-^-^y -7;h y V} 


'^ pp^ 


+ ^ y -? y 7- 


■ i7-ife^ 


4 -1- y - -t y V 


®fflu->'x?- 


AF 


,-. ^^ 


7L^ ■;. ?il'<-C--l tfttt 3 



^^-ti)i'-Ti-'}i'7. 117 



DOS 1 tDOS2(})i'7,fh^ 1 mz 



7' turbo Rt MSX2t75M:^Cjr^v 
I Lv L*^feturboRT-tJR80Q^- 

f.turbo Htz-^tzhCPU^RSOQlZ 

r D0S2T'T''f ^^ ^7 :t-V-y 
i h L^ ^CtZDOSI^ DOS2ff5f^ 

''RD_SEG''^. *WR_SEG*c;);U 
—- ?^>(J, MSXcT^BIOSC^^-f > 
^— XP-y h ij— K^. 7 < 1^(7) 
^|g(-mXl^%„ fztzLZHh<7) 

rc. '<— ^Z^^^^StiZ-S-^- 
D0S2C;) T' 7° I J 'T — v a > 7° P 
-rVlJ—^V/S"— £7)::^P-y h^Sl 

^> > h (l-b:U U ®^. *RD_SEG" 
^ 'WR_SEG" ^ n -JH-^'JZ^A^* 

i^-f ALL_SEG^fSi-^-tz^V > h 

^tiju^ttxA^'b. ^^T-r-scto 

Z n?:^.tlX yp :?''^ Af S i: . 

L/z U V D0S2C7)7— ^ X ij TcT^-tz 

X. DOS!!)^^LXLSo = 
*PUT_PH*':(:rOTJU-5^>(i. 



MSXDOS.SVS 

C0MMAND.COM 

MSXD0S2.SYS 

C0MMAND2.COM | 

<7)77<JU?r#SiAt;, "T^i:. ' 
turbo RSfcliDOS2:*3-hU'y 
•;^-{^!-^c;)MsxxiiD0S2*\ ^ 

<7>(5;:j^<7)MSXXiiDOS1/)<|ai)| 
t5ita ^0 1- +f- K U -r 3 *«7=' 

i(IUii<^X-38H1l±i&:^^=l-JL.?n 

^?:^jJiLX^-<A\ '^^miLh 
-t:?V> h(7)38H#±tfeCSlJ(;iA^ 

$Aji7°p ^ 7 A ^»s J^^^x•f5 < 
-n(itta^(c[ja^fe?nxu 

@;i-St. JIiSS/?^nXL^-5x 
P -y 1^ ^zttX-'i < . :^g!5cO^ -y / n° 
-cT^Hzr/y > h:6^DU*^;i'btiX 
tSTo fcir^ti; ;^p-y h 1 i: 

XL^I):^^. 7.P-y I- 1 (30Vv/\° 

-cT^'^-v 2 ^-tr:?^ > h 5 (z-bTl 
U#;l^t:. 7,p-y h- 2t;5v-y''f 

-(;)'<—> 2 t)-tz:5'V > h 5 (I-bTJ 

h c7)|5| C FCH-'FFH^tfeX-Sy® ? 
nXL^SA^b^io 

i/c. VDPcT)^— K^v;^^' — 
(7)J: (Z, V'y/N-$IJffllc75l/0/1^- 

Hi*#iA^*fflX\ itiSil?/^? 
nXv.^?)-tz:5'V> h t7)§-§-*^'t5A^ 

3 >yp <f7L.t)^t(r)7f.— V 5rit 

^$oct(jmit?nxu-s.c?>y-co 

-§-^ DOS2C75 9 - :? X IJ T' (Zf^# 
L. ■*GET_"J1.— 5^>(i^(7MS?- 
MTJ:9tiX'#XL^§o 
##iXC^l^Xfc< t. 2/N' 



RD^SEG 



^1^ -try V >;e>ib 1 '--M bajx-^t^tr 

€^' read segment (RD^EG) 

:r 7 -fe y h +06H 

gmi->-'^?- F 

^# -<- -^ 2 tl-7 ■;. '<- RAM :^ P y b 



WR_SEG 



S^ 



^ 7 -t y K 



write sepiient (WR_SEG) 
+09H 

HL = S^(±te2 t-y t-rtSStl^na) 
E = #t3it;e 

6Efflv->'^?- AF 

^i* -<-^'2(i-v:v^<- RAM^ o -^^ 1- 



CAL_SEG 






call segment {CAL_SEG) 
+OCH 

IY= -tr^ V l-#-^ 

AF, BC. DE. HL= ^ -v^^ flTt 7" o r 9 AKijgf S itS 

AF^ BC^ DE, HL= ^-J^tixtcy a ^7 l.f)-'h^-^i^.ii 
\^-j7.^- AF', BC\ DE'. HL', IX, lY 



i- 7 -fe ■> 1- 



IX, lY, gl--:.^^?-{±, 3->u^a57'a:?-7A|C 



(Its, *RD_SEG*^'"WR_SEG" 

a'j:"PUT_P2"'j:t'^^iJfflL, -b 

^X%im^Xn\z\.lno 

ftftli'^ir^XLS-^f-ltt', $fe 
(5 t'lS^ L /■! "'RD SEG'OL'-f^ 



>i:l^iL;flli^^-rs. yp^^A 


5rf^oX^fc„ 




RD SEG: 




PUSH 


DE 


LD 


D,A 


CALL 


GET P2 


PUSH 


AF 


LD 


A,D 



118 7-->--h!V- Ti-^Ji^T, 



T<P-tll-7tVi'7. 



CALLS 






call segment (CALLS) 

+OFH 

AF, EC, DE, HL= ^ -^i tl^^ ^ f 7 ^KB^ iv?, 
1^^ AF, BC, DE, HL= ^-A$*i/c/B^?A;4.ibiSJHS 

ffiffl u i^T. ^ ^ AF' , BC , DE' , HL' . LX , lY 

3— ^^^2,'^- i-'ti^ .;, v; — ;^ D ■> 1- 
BIOS ?5 30H#lftO'f ^-^-J^^ny ^3-^i 



I5S^ 



CALL CALLS 

DB *?•>>• S#-^ 

IX, lY, S^-^^f-H- ='-A^tl.57'B r^Atc 



CALL PUT_P2 

SET 7,H 

RES 6,H 

LD D,(HL) 

POP AF 

CALL PUT_P2 

LD A,D 

POP DE 
RET 

c nti^M^cT^ *RD_sEG* tm\: 

- i: !^^b*#(i, D0S2l*|g|ST-ti CI 

c7>y p ^'^ A t ( J t ^ i:'[wi cso^ 



V^'— TBASICCOU ;^ h ^Ep^r 



PUT_PH 



® igW PUT-PH 

# :i-7-t y !■ +12H 



GET_PH 



:i- 7 -fe ■/ b 



I l^ ->' X ^ — 



GET_PH 
+15H 

A = -t r > >■ h #-^ 

at 



' PUT 


p* 


mm. 


m^tirfc-^-i^ei^r/ ^ )-?^K!)#^5 


• - ^m 


PUT JO , PUT Jl , PUT_P2 


,: :f 7 -fe y > 


+1SH PUT-PO 




+1EH PUT_P1 


.*= 


+24H PUTJ'2 


,», '< 9 > - ^ - 


A= -ty/y V^^ 


_:_ *gm 


^L 


(iEfflW->'Z;5''- 


4L 


"" ^s 


-tir/ -y ViTLK^LXA^h. /d r7A4-M15£-S!i=*S 



GET. 


_P* 


' m^ 


ja^5H;t-^->"w-fery >- ho(g2rl@'<S 


""■' «^> 


C.ET_PO, GET_P1, GET_P2, GET_P3 


- , -ty-lzy V 


+1BH GET JO 




+21H GET-Pl 


■-* 


+27H GET-P2 


t 


+2DH GET-P3 


-> 9 > - ^ - 


ftL 


^M 


A = -t ?- > y V S^ 


-• ' mmui^T-fi- 


^L 
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^-filV^ftrMSX^Tr/^U-S-rsMSXVieWo 
5fe^^r^:n-Ufcx+7. Sxx-< iS'-CDViewTEDiz 

ic. mi^p^m(D^mm^^mm{zmm^tizi\^'eo 



sc^mmizm-DZd^^o^ 



^1" J; iZ. ViewDRAWfJ. UA^IZ 







nmuzwm%M.x{fLi\ Am. 

ntz[fX'{tx^mRti'm'^tztit 
m^. ztih<Dmwii^<tX'h 

S^i:^£^h(r), ztuz. $hiz 

m5^mrztx\ ^^^f^-^x 
Bi'^iWii, x^. mw. Mll^. ^, 



viEw i-kd hiM ?ii ?fi ip: i;in ^^jp i|g --:.- 






tfigf^.^cXVii 



Me 



s ■ ;■■ ■PJv 





• ViewDRAWT-li 
■7n$tix\.^%,i 



' ^=*n>ii ?it ?ff if-: ^ti >,T„i§ 
The 08-^!-=.' -dej ■:- MSXVJew 



ViewPAlMT: 




PaSeEDlT 



p^eum 



m 

□ 

a 
o 



^^t5 ,![!]«"! [gS 



EUR0PE(24) nA5A(24) 



etrope(«} 



nasa{K) 



NEWYORK(24) MIPT(24) 

iiewyork(16) egypt(16) 






Lfzh. nti^f£A.fzt^t)t)^h-^l{ 

ioWzt^ 'P^^i^h. -HmiU 

7-7'pv7 vxum\jsMx^n 

ViewDRAWT'S:^A;f7^fi^^X9 

fzsboi^m^x. %t-xmm.^m 
fiLxmm^^^t. fsKtt£<. 




mt^mKX"^'\.i[t\.'^\ hh^ 

ht-h^^Wj'-^^r>fz^} LtztB 
'X^^^mX'mA.X'^Xt^ 

^<iK^. iSc^fBlPi. ^BJJS^il^^k- 

~(7>ViewDRAW(iil|®c75'r^-v 
yniz-yV-o "etitziilz. WW 

±X'mnitm^{it\ wm^ntz 



120 1*il(^:»MSXView 



MSXView 







■1"^ 


gil 


i»" '^' 




Pip 


cl /p 


s. 3 


~ ' t 


-i 


■~T 






, - "^ 


ft 


'!£f^ 







ii<Dlt. VieWj: 

- ■;; ^ ? u -v ? 




<^V^:^\<^m\zt^t(Di^ 



-t LTCOViewDRAWCTf^iSo J 

mB^if^tzitxri'y—Ji-ti^'Dfz 

LX(Dm:^mnW. ±izmmLtz 

izmir^$iix\.^^ ^j^mr-f zi >" 



^^t. M'^^tm^r^h(Dtz. 
(J. '7-y'nf£i:'X-hM.f£ntzh 

^mit.xitf£<. mif^mtizmM 

■t^t^^lZtij^ti:,, ViewDRAW 

(Dm^. mmizm^$nfzmmts 

(7^i:§izh^i^Uzyy<-y<>\-' 

n, tnfna^mBZ'tiz, #=i 
■^>\-'t>mn$n^to[itz, m^ 

^"^Mt^tzisbo^ho^tz^ 

$X. ViewDRAW^fgL^Z^'T 



V'-:f3^^^lZ^Mr^Ztt>^X^ 

ts.i'm^r^iz^i-h. -^'umm 
^iX'(Dm^^wMx-$ ^ ti'^ 



MSXView 



©OverVIEWx-r:^^ 

MSX turbo RUffl 

ffii 

9BG0R[^BIJ] 

"SW£ 



Connection of data files 




PaKeBOOK 



F 


ageEDI 

•11 ar 

. .CMN 


r 



VBvTEDStJPageLINKIi 



F 


ageLlN 

•II ar^ 

. PLK 


K 
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MSX-JESI»:P^tz7.*i65SBASIC 






MSX(?);l^BASICT-B:^IS^A 



^izm^$nxMr>x<^. :^-< 
-x^-^n$^s<xhm^m^ 
Lx<ti^t>ifx\ B^^-is^ t^ 




X\ U-^X':^m^t'^m-^Uj:\-^ 
ti£L<m^Lx<nui^u ^ 



i*ntBASICii7>K 



CALL HENKAN«tftMX?>,<l!!(lia» 



15!l:CALL HENKANC 

^mr^tzi^(7^mm^r^ h<Dtz, 
m^7](Dy-<'7^-9-iz±nti'txx 

i^n. ;^C7)*CALLJIK0H0"^^T 



";^^^L;^ n) 

T. ^c7)^-g-[i*CALL HENKAN" 

\^miz:^-<~':>X'mifrLx^^^ 

'CALLJIBLOCK*;:, *CALLZEN- 

BLOCK"^ffT;t(z^j:^„ 
^^S'7)y<'pJ(~9-^zlV±W 

it-ft(t4^iv *L^ro"(J^-';^ 
-tziit's "L^c' ^"(jyy. 



9. mPUJ:Z^j:t'X'fy^n:X^^X 

^*CALL KACNV"T-4^^[CLTJi 
#. ^c7)^i:*CALLAKCNV"-rS 






• •• 



m.X(nm%hy°U <f=7L.X"t 1 L^ 

-i- tr^'^o *j >;= ;l ^^i^i^(r>fz. 



:; c xiiA^BAs\ct)^f^htifz i ^ ^ 
W*#<7)Aiz t (t-^ c T fg^nx 

^X'X'^^tm\k ti^owmt' 

^-->tzt>i-f. tZX'T7.=^~i)<n 
ofc(7>^^^c7)?Ji;^BASIC4■^/I4■= 



CALLJIKOHO«X?ISl(S«)>, 

<X?ia(SO)>,<l![iiIS(» 

^|J:CALL JIKOHO(A$.B$.N) 






m$.'^mzit^(D^^:sc^(D^ 
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lools 



CALL ZENKOHO«X?iS[(«i)>, 

<x^m[m>.<mm» 

^!l:CALL ZENKOHO(A$.B$.N) 



z-tt>hitot'^m(r)mmm^t^ 



t.i^fz^m(r>mmm§izt£^'e. 



CALLJIBLOCK«l![ii»» 

^!l:CALL JIBLOCK(N) 



t^s i:L^^ -ilz^j:^(ti:\ z. 

^ti. ttmmz^<^Qmmmiz 

/c^-rSo -tL^'CALLJIBLOCK" 
tlX l ^T, "J1K0H0\ VENKOHO" 



a:$:iSBASIC 



T-*). turbo Rft'^^5n/-::CD 



M^'' BASIC ver'iion 4 

Copyright 1990 by Microsoft 

23879 Bytes free 

Disk BASIC version 2,01 

Ok 

list 

Ok 




tzA.urn'<-x^x-{t^^L 



^^M.t'bZt^zfSi^A.fzU. 
filsJ]c7)*CALL HENKAN"T-ti^M 



:^yy}b7Da^iA. 



10 _AKCNV(A$. "*^^A^>^.-<i'") 

20 _HENKAN(A$. I) 

30 _J1KOHO(AJ. BS, I) 

40 PRINT AS;Bt 

50 _J!BLOCK(I) 

60 _JIK0H0(AI. B$. I) 

70 PRINT ASjBS 




BASIC^ie^l-. a:^|gBASIC5r 




• turbo Rli-f >?-L — :^T-t)lt 
-^Zo^^\ 1$x.5T. 




CALL ZENBL0CK«S1!II!I» 

^J:CALL ZENBLOCK(N) 



-n(S*CALL JIBL0CK"(7);E>r^ 

x\.^^h(n^i}m9D}^(Dm^^h(n 
^m^t^Mftz. 

Mt. "CALL JIBLOCK"(7)|JiBJ5r 

V-t^mz^s^(r)tHm:Ji. oT 

fiKfy-m^fzit^ 



Lt>^f£\.^Mz^^fzU.o 




20 _HENKAN(At. i) 
30 _jrKOHO(At, Bt. I) 
40 PRINT AJ;B( 
50 _ZENBL0CK{I) 
60 _JIKOHO(AJ. BJ. I) 
70 PRINT AS;Bt 




CALL KAKUTEI««i(Dl§>,<S?IS» 

15iJ:CALL KAKUTEI(N.A$) 



ixry^CkiL moHQ"<r>mmx'm 

UmX-Wr: L ^I'CALL JIKOHO" 
tfzlt ■'CALLZENKOHO"T-^'b 



}l^zX'^xm%^t\-fz^^t'^m 
$in^(Dtzo it-->fz\.'^^LXU 

m'CALL KAKUTEI*^fS^T3:^ 



¥M#=^ISH^L=I:^<, J-r. MSXx-V 
^^iifi 3 n ■§-:6^ib'SET40 . COM\ 
*DICT.BIN'\ "^D-BAT^fT^S^m^ 




• S*J)(;MSX-DOS$-jl;%±lfTft"b, "D, 
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z7P^5S><?Ur»d:5 









^CT^fe. F3EAH#±-tli(iWa(7)SJ'-'o 



^nLxmmzm^-r^. ^^^ 

^%^'^M.t^ t B iiti-VJi'(D 

mttzi^t Bu\E^^~^wrx 

t=btmft^(nXi±MLX<n. 

[r-f^l^-f-So ^(7)^ t *_HENKAN" 

3501t;^^ ^ 4301t S T tS ^ '^ - 

^^r^^ L /i& t (7) + -A:^ ?r^lj 

47(HT(i[ESC!+-;^^??? n/c t 
#C75;U— 5^>/-'o "GOSUB 1090" 
t^^t>\ ^c75109fffTU^T'(i^ 

LTU-6. 1120^T-^J^L^;SC^ 
^'Mi-. 'X(r>-\umx-ht(Dfy'f£ 



MSXT-f;^^i3^§(:iRil! 



BASICS, MSX^-i7.C'Mm 

3mmiz^m-&nzi\»ro 

SET40. COM 
DICT. BIN 
D. BAT 
D-SAMPLE. BAS 

04^r-ro iMmyu^^hM 



*t\o D-SAMPLE.BAStt. 
?-f5'-©^n<^^AS©rBSK 

BASIC ^gt!l-r€.^Bi&SS 

o*■t±^o 

^tl*^&, i£SiBASIC^fi?5 
t$(S"CALL KANJi"^=%Zr 
^?'BASIC^-KlzUr35< 



t^^vmrnm-^m-mi 



$[9]©ffii»BASIC(3(SL\7i 

Z)'^'>umuu;^^ton^j:Lio tic 



-iispKc< tiros, 0^0 

"CALL HENKAN":6^%*ao Z. 



X¥5iJ©A:^ 



CALL HENKAN 



CALL JIKOHO 



■^^^mmmws 



7j-_^_9 



YES 



NO 



CALL 
KAKUTEI 



CALL JIKOHO 



CALL ZENKOHQ 



CALL JIBLOCK 



CALL ZENBLOCK, 



tz. tt. ^nHF(r>[^^i)^0(nm 
■a-(i7fe(it'mi09mT(7>JU-5^> 

K?-y-xi^§„ ^n-^i-L^^ti-v 

)\^m$W}Lf£l^(DX\ BBmX'it 

2 [e3 KY$ (4^ #[J ;»3 - V ju=^- -co 
3t^=i- K)^S^?-f+Xl^^, 

&omti''h6Amtxit, 7.^- 

;^ + - ?rW L X >i;c7)^^5:^Mffi 

?r^^?-t+-5Mii?r^':j:-^XL^§o 

mm-nizitm^-xm^m<Dit^m.:b' 
x^xl^x.6^mxmhtl^im 

<r)^^{-m^\ )timu I i:N 

t)^^ L L ^fiC ^X o fcif-a-C 63CWt 
C75*_JIBLOCK"^||^LXL^^a 

ti—v Ji'=¥~(7y±TXy'a v^ 
f}^^l\Cf\i:tX't. ib&rft-him 

ft^X-(752 AfiJfX^oXl-^So t 
nm*_JIBLOCK'i*_ZENB- 
LOCK"^||^f L/-$)t, *_JIKO- 

^toHtyju-^vxiiiStzS^L 

Xt^-S^ 



-^XZOl^XUiH^LXfiCTo 
S -f ft4a](I980^X-^S X^^? 

nxu/i:S:^?r>ft'Lfc^£, 1010 

fi^X^JIKOHO'X^ibni) *f^" 
t*^U"^^i:fe^ffCLXa 

^rso it4^x:5:ii5^tj]^x^^^ 

LXU5%a-ti, m\^XX'^(D:^ 
mhWr-LXK.-^^. 
SmiJ82(MT!^^'b920^TS XC75, 

^Zo 860^^(7) 'PRINT A$+a$"(i5i 

h(r)fzf)\ cn(i830^xi#bn 
S3t^^aA$^^^LXt^u^.^„ 
t'^'bXfcfsll;'d:(7)/=o -^eco^i: 
■X^^mE%iz\'^Xi^^-k.m(n 
*iffiij^. !HH:<3^^^^MJ$(zi't 
ALX^f^^^b^xu^, li'U' 
^(ZMJ$;(3^^ JU^- bfifeft LX130 

MJ$^S^[tX^?^-r-5 J; C4--^ 
xu^^; 

n;^^;b;^^-:^Xt.ib;l^z;^^'j:? % 

^BAsiccT^-y-vyjL'i: Lx##[z 
Lx<nn(i'9nLi^r„ 
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'A>i>v3iM-j^v. m$='^yiiyjiV/ v? 



100 ^KANJI3:C0L0R 15, 0, 0:_CLS 

110 CLEAR 1000 - -^''-■ 

120 X^0:Y=0 

130 POKE &HF3E9. 15:P0KE &HF3EA. 

140 MJ$="" 

150 LOCATE X:PRINT MJ$; 

160 _KLEN(A. MJ$) : IF A>18 GOTO 270 

170 KY$=INPUT$(1) 

180 IF KY$=CHR$(8) AND POS (0) <>0 THEN M 

J$ = LEFT$(MJ$. LEN(MJ$) -1) : LOCATE POS(0)-1 

:PRiNT" "::GOTO 150 

190 IF KY$=" " AND MJ$<>"" THEN GOTO 270 

200 IF ASC(KY$)<32 THEN GOTO 150 

210 MJ$=MJ$ + KY$:I^TO 150 

220 ■ 

230 

240 

250 ' 

260 • 

270 _KACNV(MJ$. MJ$) :_AKCNV (MJ$. MJ$) 

280 JE$=MJ$:GOTO 300 

290 A=(POSC0)-X)Sf2:_KMID{JE$. MJ$. 1, A) 

300 _HENKAN{JE$. N) 

310 HF=0:GOTO 600. 

320 ' 

330 'key wait 

340 ' 

350 KY$ = INPUT$(1) 

380 IF KY$=CHR$ (32) GOTO 600 

370 IF KY$=CHR$ (30) GOTO 750 

380 IF KY$=CHR$(31) GOTO 680 

390 IF KY$=CHR$ (28) GOTO 510 

400 IF KY$=CHR$ (29) GOTO 5)0 

410 IF KY$=CHR$ (27) GOTO 470 

420 IF KY$=CHR$(13) GOTO 820 

430 GOTO 350 

440 ■ 

450 'esc 

460 ' 

470 GOSUB 1090: GOTO 350 

480 ' 

490 "left X right (7* >t5tVj5) 

500 ' 

510 IF HF=1 GOTO 530 

520 GOSUB 1090 

530 IF KY$=CHR$ (28)ANDPOS(0)>=HX GOTO 56 



540 IF KY$=CHR$(29)ANDPOS(0)=X+2 GOTO 56 



700 _JIKOHO(A0$. Al$. I) :GOSUB 960 

710 GOTO 350 

720 ' 

730 ■ zenbloGk- 

740 ' 

750 IF HF<>0 GOTO 290 

760 _ZENBLOCK (N) 

770 _JIKOHO(A0$. AU. I) :GOSUB 960 

780 GOTO 350 

790 ' 

800 ' kakutei 

810 ' 

820 IF HF<>0 GOTO 350 

830 _KAKUTEI (I, A$) 

840 POKE &HF3E9, 15:P0KE &HF3EA. 

850 LOCATE X. Y 

860 PRINT A0$+A1$; 

870 IF MJ$="" GOTO 920 

880 _KLEN(A. JE$) :_KMID (JE$. MJ$, A+ 1) 

890 IF JES^"" GOTO 920 

900 MJ$=JE$ 

910 X=POS(0) : LOCATE X. YiGOTO 280 

920 PRINT:X=0:Y=CSRLIN:GOTO 130 

930 ' 

940 'put 

950 ■ 

960 LOCATE X. Y 

970 POKE iHF3E9. 0:POKE 8cHF3EA. 

980 „KLEN(A. MJ$) :PR!NT SPC (A*2) 

990 LOCATE X, Y 

1000 POKE 4HF3E9. 15:P0KE &HF3EA. 4 

1010 PRINT A0$;A1$; 

1020 POKE &HF3E9, 0:POKE 8.HF3EA. 1 5 

1030 .KLEN (A. JE$) :_KM1D (B$. MJ$. A+1) 

1040 PRINT B$: 

1050 RETURN 

1060 ' 

1070 'esc sub 

1080 ' 

1090 JE$=MJ$:HF=1 

1100 „KLEN(A. MJ$) 

1110 POKE &HF3E9. 0:POKE &HF3EA, 

1120 LOCATE X,Y:PRINT SPC (A* 2) 

1130 POKE &HF3E9, 15:P0KE &HF3EA. 4 

1140 LOCATE X, Y:PRINT JE$ ; : HX^POS (0) 

1150 RETURN 



550 
560 
570 
580 
590 
600 
510 
620 
630 
640 
650 
660 
670 
680 
690 



PRINT KY$;KY$; 
GOTO 350 

jikoho 

IF HF<>0 GOTO 290 
_JIKOHO(A0$.A1$. I) :GOSUB 960 
IF loN THEN GOTO 350 
_JIBLOCK(N) 
GOTO 350 

jiblock 

IF HF<>0 GOTO 290 
JIBLOCK (N) 



V ^^/v^j:y-)P^MM^fi 



DOS©51-gB=lV>Kl3[l&f. 






9c 



=107-24 
mmiB^KmSLiJ6-11-1 
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:lzx\ zntX'<r>t^iibtL 
X'PLX^^^l^a^'^L.i,zl^^}t^ 

^'^T^^fz^it^'-nZtX\ f 
— A^f^^Tt^<Zt[zLfc„ 

c7)iaigi(i::J;-§-T~*ftKt--&(?)T% far 

^ T # y--iasi(7>[*iW!^<(5 ^Kt't 

getch( )t\.^o^wl(riza:>mmt. 

m^mm^^z\.t^tnx\.^u\-\ l^ 

(i. J3fc(z^\°— v:^J^=3>ll°IL— 
^ -<75 c in^lStz^it? tiTi ^ 
^h<r)izt\ uu\y.(D<Ziz<,tW^X' 
^f^^LU^^h(r)X'h^^ ^SU. 




^s-X'f^^'Z'^t^h^^ z(DXofs 

JIS*^'b-nST-35^TmU±.(f 
?-C. :^>v>(7)ec75M^C7>M 

e (Dmsxm U -blf fc c i: m Jb ?) 
fgetc( )^getc( )t(r>'-&^^[t. n 
>V-JU(+-,-t?-K)tUT/\- 

c ^ fc; ^Mi/0 u :?V u ^ h ^f' 

r>X<^fzi^{z, jLZi—j<-/:^$ 

/■<-yy T ^} >i>'ij$nti:i^fzsb, 
^^-^WLtzttzA.izmot^X 

t>-^J;il (I,getch{ )(iMSX-DOS 

(T^mn^^m^^^^'X: hr>ty\- 
K O X r lCigL^^-3-(BI0S l^'^ 

t'u. •^^xmL<mMLxi^< 
Lxi'-^mm^t'oi^im^^L 

Xi^^t^fA:i:\ B-^xmnLXfs 



/» 



Text-base role playing game 

-RING of ELEMENTAL- <eleraental, h> 

I2/19/1990 programed by Harlack. 



«/ 



static char 



•version = "1. 



#def ine 


HERO 


str 


uct 


hero_data 




tdef ine 


SACK 


s t r uc t 


sack_d3ta 


tdefine 


SACK ITEM 


struct 


saclc_i ten 


SiJef ine 


MAGICS 


struct 


magic^data 


#def ine 


MAGIC ITEM 


struct 


magi c_i tern 


/* status */ 








#define 


MOVING 


1 






#dBf ine 


CAMPING 


2 






ffdef ine 


FIGHT 


3 






/» key tiind */ 








#def ine 


FRONT 


■8' 






ddef ine 


LEFT 


*4' 






•define 


RIGHT 


'6' 






Sdef ine 


BACK 


■2' 






#def ine 


CAMP 


'5' 






#def ine 


STATUS 


'S' 






fdef ine 


QUIT 


'0' 






(define 


EQUIP 


■e' 






»def ine 


USE 


'u' 






Sdef ine 


DROP 


"D' 






«def ine 


MAGIC 


'M' 






/* ground forming »/ 








•define 


WALL 


■#■ 






/* vector */ 








•define 


NORTH 


-i 






•define 


EAST 


1 






Hdef i ne 


WEST 


-1 






•def ine 


SOUTH 


1 






/• files 


*/ 








static 


char »mapf 


= 


"ELEMENT": 


Stat ic 


char *messagef = 


'ELEMENT. MSQ- 




Stat ic 


char *herof 


~ 


"ELEMENT, HRO" 




Stat ic 


char *itemf 


= 


-ELEMENT, ITU" 




Stat ic 


char »raonsterf = 


"ELEMENT. MON- 




static 


char *storef 


= 


"ELEMENT, STR' 




/« loca 


function */ 








static 


int listinf 


>(), 


usa 


ge (1 , el ec 


e 




e lementai ()^ 
load^heroO , 1 ist_hero(). save„hero (1. creat: 
load_map 1) , i ist_map , save_map (j , elemain !) , 
elemoved, elecampll. key_he 1 p , event_chk(). 
equip item , use item [) . dropltemO , usemagic . 
gettnapname ; 



static 


int 


getvalue () ; 


static 


char 


crfloar - 0; 


Stat ic 


char 


Kplot = 0; 


static 


char 


yplot = 0: 


static 


char 


xvector = 0: 


Stat ic 


char 


yvector - SOUTH: 




Kdef ine MAXX 30 
tdefine MAXY 30 
static char dungeon [MAXY t I] i«AXX + H 



#def i ne 
static char 



MAXJOB 



job [MAXJOSI |8] = 







"FIGHTER", 






"THIEF", 






"WIZERD', 






'CLERIC 






): 


SACK ITEM 1 






int 


item no; 




int 
1; 


gold: 




SACK i 






SACK ITEM 

1: 


IteiTiISl ; 




UAGICITEM 1 






int 


job: 




int 


Ivl : 




int 


rap : 




Int 


area; 




int 


time; 




int 


gold; 




char 


mag i c_nartie [9] ; 





MAGICS [ 

MAGICITEM item|i( 



char 


hero name [9l 


char 


hero_job: 


int 


hero level; 


int 


hero str; 


int 


hero dsx: 


int 


hero int; 


int 


hero_can ; 


int 


hero luc; 


int 


he ro_wpc ; 


int 


hero anic; 


int 


hero exp: 


vnt 


hero gold: 


int 


hero mhp: 


SACK 


hero sack: 


MAGICS 


hero_maglc : 



/ * n ame * / 

/* job */ 

/* level */ 

/» strength */ 

/* dexterity */ 

/• Intel 1 igence */ 

/* constitution */ 

/• lucH »/ 

/* weapon class */ 

/* armer class */ 

/* experience */ 

/* gold */ 

/* max hit point •/ 

/* sack item */ 

/» magic item */ 



/» 
t Text-base role playing game 
» "RING o-f ELEMENTAL' version l.i 

* programed by HarlocK. 

* M/I8/1990 

* / 

#include <stdio. h> 
Sincludp sstr ing. h> 

HERO elehero: 
SACK elesack: 
SACKITEM elesackitem; 

MAGICS elemagic: 
MAGICITEM elemagic item; 

mai n (argc. argvl 
mt argc: 
char *argv [| : 
( 

srand(ll) ; 
switch (argc) { 
case 1 : 

if (eiecheckd! ( 

return 1 ; 
} 
else I 

elemental () ; 
return 0: 
1 
case 2 : 

i f (strcmp {argv | 
Iistinfo : 
return 0: 
1 
default: 
usage : 
return 1 : 



"-1") - 



usage 
( 

fprintf (s-tderr. "RING of ELEMENTAL* tVers ion «s*n", version) ; 

fprintf (stderr. "Usage : ELEM l-ltlin"); 
) 

iistinfoO 

( 

FILE »fp: 

if ([fp = fopen(herof, "r")) == NULL) { 

fpr i ntf (stderr, "No hero exist now. Vn") ; 
) 
else { 

load_hero : 

1 ist_hero() ; 

fclose |fp) ; 



) 

elecheck () 
( 

(tifdef MMAGA.) 
FILE *fp: 
int ret: 



/• This function need MSX magazine 4, 1991 »/ 



if ((fp = fopen(niessagef, "r")) == NULL) { 

fpr intf (stderr. "There's no Xs file.*n", messagefl ; 

return 1 : 
I 

fclose(fp} ; 
if ([fp = fopendtemf. "r")] == NULL) | 

fprintf (stderr, "There's no Hs file. (n". itemf) : 

return I ; 
1 

f c lose (f p) : 
if ((fp = fopen (monsterf. "r")) == NULL) ( 

fprintf (stderr, "There's no Hs file. (n". monsterf); 

return 1 ; 
) 

fclose (f p) : 
if ((fp = fopen(storef, "r") ) =- NULL) { 

fpr intf (stderr, "There's no fs file..*n". storef) ; 

return I : 
) 

f c lose (f p] ; 
if S(fp = fopen ("ELEMENT. 0". V)) ^^NULL) 1 

fpri ntf (stderr, "There's no Hs file.tfn", mapf) ; 

return 1 : 
! 

fc lose (f p) ; 
Send if 

return 0: 
) 

elemental 
( 

FILE »fp; 



if ( (fp - fopen (fierof. 
creat„hero : 
save_hero () ; 



= = NULL) 1 



el se 



load_hero () : 
fclose (fp) : 



/« This function is buggy »/ 

/« This function need MSX magazine 4, 199] */ 



load_map 1) : 

elemain () ; 
) 

load_hero 

1 

tifdef MMAGA4 

char n, »worktok: 

char work 1255) ; 

int i : 

FILE tfp: 



if ({fp = f open (herof , 'r')) == NULL) ( 

fprintf (stderr, "Ss open error. i(n", herof) ; 
exit (1) : 

) 

fprintf (stdout, ". ") : 

for (i ^ 0: i < 255: i + + ) { 

if ((n = (charlfgetc(fp)) 1= EOF) { 
wo r k i i 1 - n : 



} 
\ 

St rcpy (Seiehero. hero_name |0] , st rtok [work, 
fpr intf [stdoul. ", ") ; 
worKttJk - Btrtok{"<0", " ") : 
fpr ititf (stdout. 

(atoi (worktok) ; 



elehero, hero_job 

fpr intf [stdout. 

eieharo. hero_level 

fprifitf (stdout, 

elehero, hero_str 

fprintf [stdout. " 

elehero. hero_mhp 

fcrintf [stdout, 

elehero, herQ_dex 

fprintf (stdout, 

elehero. hero_int 

f prjtitf [stdout, 

elehero, hero^cor 

fprintf [stdout, 

el ehero. hero_l uc 

fprintf (stdout, " 

elehero, hero_wpc 

fpr intf (stdout. 

elehero. hero_3mc 

fprintf [stdout, 

elehero. hero_exp 

fprintf (stdout, 

elehero. hero_gold = (atoi (strtok [NULL. 

fprintf (stdout. "Loaded. *n") ; 

fclose (f p) : 
«endif 
) 



= [atoi [strtok [MULL, 

atoi [strtok [NULL, " 

(atoi [strtok (NULL, " 

atoi (strtok (NULL. " 

atoi [strtok [NULL, " 

(atoi (strtok (NULL, " 

atoi (strtok (NULL, " 

atoi (strtok[NULL, " 

(atoi (strtok(NULL, " 

(atoi (strtok (NULL. ' 



list_hero () 

{ 

fprintf 
fprintf 
fprintf 
fprintf 
fprintf 
fpr i ntf 
fprintf 
fpr intf 
fprintf 
fprintf 
fprintf 
fprintf 



(stdout, "tls's statusKn". ielehero. herD_name 10] ) : 

(stdout. "JOBVtfsKn". & job fe I ehero. hero„jobl 10] 1 : 

[stdout. "LEVEL*tS(dKn", elehero. hero_leve!) ; 

[stdout, "STPKtSd/Xdifn". elehero. hero„str, elehero. hero^mhp) 

[stdout, 'DEX¥tS(d*n", elehero. hero_dex) : 

(stdout, 'iNTilt»Sd*n", elehero. hero_int) : 

(stdout, 'CONIttdVn", elehero. hero_con) : 

(stdout, 'LUCKVtHdHn'. elehero. hero_iuc] : 

(stdout. "GOLD^tXdUn", elehero. hero^gold) ; 

(stdout. "WPCytfdfn". elehero. hero„wpc) : 

[stdout. "AMCKtfdKn". elehero. hero_amc} : 

[stdout. "EXPHtSdifn". elehero. hero.exp) : 



save heroO 
{ 

FILE «fp; 

if ((fp ^ fopen(herof, "w'i 1 == NULL) { 

fprintf (stderr, "Ks open error. ¥n". herof) 
exit [11 : 



fprintf [fp, "Xs 

fprintf (fp. "He 

fprintf (fp. "«d 

fprintf (fp, "«d 

fprintf (fp, "«d 

fprintf (fp. "Xd 

fprintf [fp, "Vd 

fprintf[fp, "tld 

fprintf (fp. "Xd 

fprintf (fp. 'Xd 

fprintf (fp, "Xd 

fprintf (fp, 'Hd 

fprintf (fp, "Xd 
f c lose (f p) ; 
fprintf (stdout. 



ielehero. hero_naine 
elehero. hero_job) ; 
elehero. hero_level 
elehero, hero_str) : 
elehero. hero_nihp) : 
elehero. hero_dex) ; 
elehero. hero_int) : 
elehero. hero_con) ; 
elehero. hero_!uc) : 
elehero. hero_viipc) ; 
elehero. hero_amc) ; 
elehero. hero_exp) : 
elehero. hero_9old) 



for [i - 0; i < MAXY: 1 + + ) ( 

fprintf [stdout. "Xs^n", Idungeon [i) [0| ) : 



save_map () 




do ( 

fprintf (stdout. "NAMEftlsKn", ielehero. hero_nanie 

w - getvalue () ; 

elehero. hero_inhp - w: 

fprintf (stdout. "STRKttd^n 

w = getvalue [) : 

fprintf (stdout, "DEXKttdi'n 

w = getvalue () ; 

fprintf (stdout, "INTKtXdVn 

w - getval ue (] ; 

fprintf [stdout, "CONVtXdKn 

w = getval ue (] : 

fprintf [stdout. "LUCK<t»(dMn". [elehero. hero_luc 

w - rand[) H 25; 

fprintf (stdout, -GOLD«tSsd*n", (elehero. hero_gold 

e lehero. hero_wpc = 10 - e lehero. hero_str ; 

eiehero. hero__arnc = 10 - e lehero. hero„dex; 

fprintf [stderr, "Do you save this? (y/n) ¥n"j ; 

o = getch : 
) while ((c 1= V) S& (c I- 'Y')) ; 



31); 



(elehero. hero_str = 
[elehero. hero_dex = 
(elehero, hero_int - 

(elehero, hero^con = 



int 

getvalue 
f 

int 



w - randO H 13: 
if (w < 10) { 

w -= (10 - w) : 



else 



w +- w - t( 



if (w < 3) { 
w = 3: 



load_niap () 

( 



int i. j; 

char worklMAXX], mapnamell0) : 

FILE *fp: 

getraapname (mapnarre) ; 

if ((fp = fopen [raapname, "r")l == NULL) ( 

fprintf (stderr, "Sss open error. ¥n", mapname) ; 
exit (1) ; 
1 

for (1 = 0: i <= MAXY: 1+*) ( 
f gets (work, MAXX, fp) : 
for (j ^ 0: j < MAXX: jf+) { 

if Kworkfj] = '^n') II [workij] = ■»0')i ( 

dungeon |i) Ij] = WALL: 
1 
else I 

dungeon [il |j] - work Ijl : 
I 
1 

dungeon |i] [jj - '^0' : 
i 
fc lose (f p) : 



1 ist„niap 



int 1 ; 

char mapname [10] : 

FILE *fp: 

getmapname (mapname) : 

if [[fp = fopen (maoname, "w") ) -- NULL) 1 

fprintf (stderr. "Xs open error, fn", mapf] : 

exit (1) : 



for (i = 0: i < MAXY: 1+ + ) | 

fprintf (fp. "XaKn". idungeon [i| 10] 1 ; 



for (key ^ ' ' : (key = getchO) != QUIT; ) ( 
switch (key) ( 
case FRONT: 

el amove (1) ; 

break; 
case LEFT; 

elemove (2) : 

break: 
case RIGHT: 

elenove (3) ; 

break; 
case BACK: 

elemove (4) ; 

break; 
case CAMP ; 

elecatnp : 

break; 
case STATUS: 

list_hero [) : 

break; 
defaui t; 

key_help (MOVING) : 
) 

fpr inlf (stderr, "Do you want to save DATA"? (y/n) In") : 

c = getchO : 

if ([c - V) II (c == -V)) { 

save_hero () : 

save_map ; 
J 
) 

getmapname (name) 
char tname; 

static char *tenip - 'ELEMENT. 0" : 

Etrcpy (name, temp] ; 
i 

e I emove (tnv) 
int mv: 

. { 

E, char X, y : 

X = xpiot + xvector; 
if (0 <= x t.S X <= 30) { 
y - yplot + yvector : 
[ if (0 <= y Si y <= 30) { 

1 
else { 

fprintf fstderr, "OuchM¥n") : 



else ( 

fprintf (stderr. "OuchI !*n") : 
) 

switch (mv) ( 
case 2: 

If (xvector =- 0) ( 

if (yvector ^= SOUTH) { 
xvector = EAST: 
yvector = 0: 
1 
else ( 

xvector = WEST; 
yvector = 0: 



else if (xvector -- EAST) { 
xvector - 0; 
yvector = NORTH; 

! 

eise ( 

xvector = 0; 
yvector = SOUTH; 
} 

break; 
case 3: 

if {xvector -= 0) { 

if (yvector ^= SOUTH) { 
xvector - WEST; 
yvector - 0: 
) 
else ( 

xvector = ^^^^ '■ 
yvector - 0; 



else if (xvector ~- EAST) { 



xvector - 0; 

yvector - NORTH: 
i 

break: 
case 4; 

if (xvector) ( 

xvector - -xvector; 

) 
else { 

yvector = -yvector: 



everit_chk(x, y) ; 



elecamp () 
( 

char key; 

for (key = ' ': (key - getchO) 1= QUIT: ) ( 
switch (key) { 
case EQUIP; 

equ i pitem () : 

break: 
case USE : 

use item : 

break; 
case DROP; 

drop] temO : 

break; 
case MAGIC: 

usemagic ; 

break; 
case STATUS: 

list_hero ; 

break: 
default: 

key_help(CAMP) ; 



t 

key_tielp(stat) 

int Stat; 

{ 

switcti (stat) { 
case MOVING; 

fprintf (stdout. 
fprintf (stdout, 
fprintf (stdout, 
fprintf (stdout. 
fprintf (stdout. 
fprintf (stdout, 
break: 
case CAMP: 

fprintf (stdout, 
fprintf (stdout, 
fprintf (stdout, 
fprintf (stdout, 
fprintf (stdout. 
break: 
case FIGHT: 

fprintf (stdout. 



«»* MOVE KEY HELP ***Vn') ; 
FRONTItXcfn". FRONT) : 
LEFT*ttc*n", LEFT) ; 
RIGHTKtHclfn', RIGHT) : 
BACK*t«c«n", BACK) ; 
CAMP(tS(c»n", CAMP); 



ttf CAMP KEY HELP ***»n 
EOUIPKtXcKn". EQUIP) : 
USE^tXcVn". USE) ; 
DROP*tHc»n". DROP) : 
MAGIC¥tXc*n". MAGIC) : 



*»* FIGHT KEY HELP •tt'fn") 



fprintf (stdout. " STATUSiftfcKn", STATUS); 

fprintf (stdout. ■ OUlTKtKciln", QUIT): 
) 
event_chk 

printf ("Please read MSX Magazine April. *n") ; 

ecjuipitem 

printf ("Please read MSX Magazine April, in'] : 

useitemO 

printf ("Please read MSX Wagaz i ne April. *n") : 

-opi temO 

printf ("Please read MSX Magazine April. *n"l; 



usemagic 

printf ("Please read MSX Magazine April. ¥n") : 



MSx:7P':?^-7 





-JUO^^U)\^l^ 




MSX-Datapack 

IBMSX. MSX2> MSX2+ 1:^2000^ l^mi C2pD) 'ij.i|iiiii|,iijiij iijiif 'I 



2^±tl(c#^<vti§^^0DMSX-Datapacko :^^^ci: 
turbo R0«*4liAor^l^^;::l:^e\ MSX^^e 



S. -CO^MSX-DatapackjCWT 
Datapack}o lOOO'^— i?^H;l'& 

-ti)\^7-'—^y'v'> A. ^MSX2+ 
/\°7 7Jb;§ffl;ij. ''MSX-DOS;^ 



-/\^-/N> Ky-y^j'jrt"^ lit 
(H^oo^fl^atiM 1 gl^i: ^ 2 gisiz 

^^^nX U ^ ) IZ i t so/- t) (7)IZ 

msx-audicj: t; 4-s T'ii^ifl ? n 

A^tPLAYS:BIOSX-fSffl"r-S MML 
C7)77l-— ?-y h'^^n-y t— x-f 

ttO(i1"^T?r,^7JKZ#L^fz. 




« -ff)-S-ifi.^:$:z«l^-y->7";L.7'p?'7A'j:t-A=A-ofcx-'-f ::^?fl<-^ < ;bltfc'. 
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UOliSCiict!! 



\i)ti^^?^-^><Dmm 



"Datapackjl-lS. ZA.tiiWl^}ih^-> 
— :r > ;^ (TJ-gif* ti leSK ? ^T L^ -5 ff) 



fc'„ ##i;4-s-tf„ 



@H.KEYlCFD9AH#ite)^ii?vK 

@0N SPRITEt7>iaii 

0ON \NTERVAL(7mM 

®JIFFY(FC9EH#4&) = JIFFY+K PLAYS:c^a 

®SCNCNT=2 
©ON 5TR\G(7)*im. 



iz < L^:^fc'of=coTitoZ T ^t; 
MSX-DOS^VDP'j:t'(7)^if4t 

a ><r>m3y^^^^z'^\.^x(r>mmu 



^tx^^K-^it^it-o-t-jmw 

^xtif-oizmx. f-U^mWi 
•mmt'U i: <CMSX'JEc:o»l4(i 

ti\^B<7)^Too\s>^mi^jXhB:^ 
xi'^<nx\ '^t>-U:xmmt^i: 

^-[Hlc^Datapackm^ 1 g|5i:IS 

+#^Jfc^5•^^MSX turbo Rc7)H 
-^% '"MSX-Datapack turbo RiKjt 
LXmcm^^tl^^^^'^£(^XZ 

^htmntxi^'j;!. 



,^«MViTo-&-! 



i:dfj:mfim4fz-b\ ^St^ic^ 
X'tm-^tiX'-^6<DX\ MSX:3- 

YAMAHA7S'^!|$Sl| 




(OFLL)(D±i± 

\Hmrzo ^>^i\'-f^<fyi^tm 



FotiJ^/ci.^ 



|g 1 gK(J)g^-etiMSX2+©lHl?Sia4-i:'iS:fr^n-rVi5o 

^3g|5 MSX-DOS 

;Cti^MSX-D0ST00LSj«v^3.r;WCifiV^|^#. DOS^J^VV 

|g4g|5 VDP 

Xa -y ha««Q^tt^^ >^-Xn -y h =i-;K ;^- h U -y^V^ >© 



;;(D'<-5^3a^^— #^v^^C^4'l'ifi59A\ RS-232C. ^rA. 
MSX-JE, MSX-MUSIC MSX- AUDIO, g|?7"'J VrJ'-, JCSg 

BIOS-Si-^. >7-^xUr. BASICi^'^^3-K 7tV^V3:^::i 





■ DOSA^6Math- 


ORG 


5439H 




■ Pacl<=SfiJffl-r§ 




LD IX. 5439H 
JP CALBAS 




1 Math-Pack(7)Sfai1?3|:jL— 5^ 








1 >[SUTC0JU— ?^>&^— >= 


ORG 


5597H 




■ 1 i;ai.^TK*-4-i.'£D0Sfl- 
3 ■i*iJfflT'?'j:L^ 


GETYPR: 


LD A, (VALTYP) 






OP 8 




p! ORG 406FH 
; LO IX. 406FH 




JR NC. DOUBLE 






SUB 3 






OR A 




■ JP CALBAS 




SCF 




a 




RET 




E ORG 4666H 


DOUBLE - 


SUB 3 




1 LO IX. 4666H 




OR A 




■ JP CALBAS 




RET 




1 OF^ 4E88H 


ORG 


66A7H 




■ LD IX. 4EB8H 




POP AF 




■ JP CALBAS 




RET 
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mM&m 






-:?y^}\j70-^7.-oZ 

^ffii^fcx -r ^ ^ J' ^ -bT. ?r 7 ? 

mtiix^mi-'^z^ii^^tti^X'^ 



— ^(?) T-v ^ ^ r ^ -tz ;^ T'$) -5 *\ 
4-[ilti J; U it^'^k-T-V 7. ^ T :? t 

i.i^r){zfiiXhti'tt>U^^<nfz 

t^'tUmWh^o BASICCOT" 



u;^Ni 


:.x- 


-"tS'7T-fM^^::^a^^A 


10 


OPEN" 


5AMPLE 


. DAT" 


FOROUTPUT AS#1 


20 


READ AS 






30 


IF A$ 


-"END" 


THEN 


CLOSE: END 


40 


PRINT 


#1, AS 


GOTO 


20 


100 


DATA 


123456789 




110 


DATA 


ABCDEFG 




120 


DATA 


abcdet 


g 




130 


DATA 


7<'}U 






140 


DATA 


END 







uxse :yT<}bp^mm^syn{f3/x 



10 0PEN~SAMPLE1.DAT" FORINPUT AS#1 
20 IF E0F(1)=-1 THEN CLOSE:END 
30 INPUT#1. A$ 
40 PRINT AS: GOTO 20 



i^^tzfmithimmzm^Lx 

\.^^Zttzhn. 

?T, ■^Ul.ZT'(7.<7[Zt'(nX 

^X^Xl. ^ntZtiTlLES't 

ntf, ii[®(Z77'-fJl'^^~A:6*^ 
^?n5>o Z(7)i:S, -yr-Oi-^- 

OPEN 

opu\%^[ty T -r vu^ 7°p c 

%^^-mfr^zti.zi-^xmiii 
X. yp^vAjiT"7 7 -rju^m 

- t A*T'# -5 J: f.Zt£^mzo 

CL0SE#(77'-fJl'##) 

^-y > L 1 7 r -f JK7)^i*^' 

iitf"r?)o 7 7'rji'#-t[ioPEN 



JiA?i?co^j 



DAO BASIC"/n?"5A07 
'-''-"VI ^^^7^ )\,^^i-,t. 



MUmihW^ ^mr> L T L ^ ^ o fz 
fzL. mMV7 hff5— g|5T-(i. iff 

izsb. yr-Oi't^Tr^^n-f'.ZJz 



■i-Zi, Z<D-S^^WrTLfl\.'Xy° 
P^'^A^iSifTLTLST t. 1+ 
-^^^ < ^-^fzy T ^ >\^-h^lLL < 1S: 

PRINT#(77"f;i'##), (t--^) 

OUTPUTS- KT'^-7°>Lfc 
7 r < JKZ'|ffg^*# iAt:#^;:)< 
cnfc'= #ff)*tCtJOPEN^^T' 

!NPUT#(77"f;i^^}, (^IgpS) 



OPEN^^CD»it 
OPEN "SAMPLE1.DAT" FOR OUTPUT AS#1 



:7 3"i-Ji/*-A 
:7P'fJU:^-A 3nS^6x-5' 

^-H 7?-i'JL/^£'©d;3(ci!ft 

WTO 3 mmis-^^^ 

INPUT 7=-5'^^5*at:c 

OUTPUT iiu<77"r;i/^ 
c. iii;sKiro^(-^77"i'ji'tf^ 



urisbLv 

APPEND SU7P'fJl/^^ 

:77'f;l/S^§ i;:i^6iissc77 
^>-r§77-)'Ji>A^f>ioe(J-;t£ 
[3. PRINTflfife^/dit^. I5*^©7 
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INPUTS- KT-/f-7°>Lfc-7 
E0F(77'-f^l^-^) 

::(7)B^a(i. inputs- KT^t 
, -y> L /c7 r -f ^1-;^^ ^ !NPUT# 

X\t. y T ^ )i^(r>r''—$' ^tn^^ 

U;^ h 1 [J+tV^JUx— :?<7)7t 
'r;L'?rOUTPUT^- KT-^-y> 

1000-1060 mm'i'^wmmt 

1070 Zl'7>\-'Xil 
1080 :*;X?^^ 

1090—1170 Zi-7>V(T)mi 

1180~1220'*A"av>'FC7)4!!:S 
1230— 1240-'P''3V> KtTJfi!:® 
1250~1310*D*av>' \-'0il!iM 



SfcU;^h K 'J7.h 2(Dm^t 

Z(DJ^ (ZPRINT#g^>^!NPUT 
#^%^IS-^ ^i 7 7"f JU J' :? -tz :^ 

niz-Di^xii'^^xsmt^-t: 
izLJ;.!. 

1320— 1380"' I "iiv> roam 

1390— ueo'E'iivv KC^feS 

1470— 1500*S"3-7y K(734!ka 
1510— 1540'L*l|-7> K(734n:H 
1550— 1590^^ffl-9-7'Jl'-5^> 

mtftixi'i'S^mz'o\,^x 

M$ =l?> \^zn—\''^^t)tc. 
M2$ i]V>K:3-K«IS#fflo 
E$.S$ x4^7. h?-:?(7)Mil 

BF$(n) 7" + ;^ i^r~-?^U 
L2 1 55mf ^^ htni^-^ y'ju— 



pROGBAMIfOUSE 






:Pc5^SBISZ:S6*Z:- 






9u 



M 07-24 

;^'j-x7mfiujt:::;u 



1080 IF M$>="a' 

1090 IF M$="E' 

1100 IF MS-"A" 

1110 IF M$ = ''S' 

1120 IF MS="L" 

1130 IF MS="P" 

1140 IF M$ = 'D'' 
1150. IF M$ = 'r 

1160 IF MJ="Q' 



1000 SCREEN 0:WIDTH 40:KEYOFF 

1010 CLEAR 10000:DIM 8F$(1000) 

1020 E$-CHRt (13)+CHRS (27}+"K"" 

1030 SI=CHRI (11)+STR!NG( (4. 10)+CHRS (27) +"M" 

+CHR$(27)+"Y8 " 

1040 L=0:PRINT CHR$(12) 

1050 PRINT CHRS (11) rPRINT EJ:PRINT E$ 

1060 PRINT " + + + + + +- 

1070 M2(=M(:PRINT CHR$ (1 1) ;EI; : INPUT'Comman 
d";MJ 

THEN MJ=CHR$(ASC(M$)-32) 

THEN 1390 

THEN 1180 

THEN 1470 

THEN 1510 

THEN 1230 

THEN 1250 

THEN 1320 

THEN CLS:END 
1170 PRINT E$:"Command Error';:GOTO 1050 
1180 IF M2t<>"A" THEN LOCATE0. 23: PRINT El: 
1190 L = L+1 :LNS = RIGHT$ (' '■+STRS(L), 4)+":" 
1200 LOCATE 0. 1 rPRINT E$:LN$: iLINEINPUT A$ 
1210 BF$(L)=LEFT$(A$, 34} 
1220 PRINT SJ;LN$;8FS (L) ::GOTO 1050 
1230 PRINT El; : INPUT"Line number ":L2 
1240 GOSUB 1550:GOTO 1050 
1250 PRINT E$; : INPUT-Line number ";L1 
1260 IF L1>L THEN PRINT EJ:"Not found!";CHR 
$(30) ; :GOTO 1250 
1270 FOR I^Ll TO L-1 
1280 BFS (!)=BFS (1+1) :NEXT I 
1290 BF$(L)="":L = L-1 
1300 L2=L1-9:IF L2<1 THEN L2=l 
1310 GOSUB 1550: GOTO 1050 
1320 PRINT E$;;INPUT "Line Number ';L1 
1330 IF L1>L THEN PRINT E(:''Not Founf!":CHR 
1(30) ; :GOTO 1320 

1340 L=L+1:F0R I=L TO Ll+1 STEP -1 
1350 BF$(I)=BF$(I-1) :NEXT 
1360 8F$(L1)="" 

1370 L2=L1-9:IF L2<1 THEN L2=l 
1380 GOSUB 1550: GOTO 1050 

1390 L1=1:PRINT E$;:INPUT "Line Number ":L1 
1400 IF L1>L THEN PRINT ES:"Not Foundl":CHR 
J (30) ; :GOTO 1390 
1410 L2=L1-9:IF L2<1 THEN L2=l 
1420 GOSUB 1550; LOCATE 0,2 
1430 LNt = RIGHT$(" "+STR$ (LI ) , 4) +" : " 
1440 PRINT E$;LNS:BF$ (LI) ;CHRi(13) :LN$; 
1450 LINEINPUT I J :BF$ (LI ) =LEFT$ (II, 34) 
1460 GOSUB 1550: GOTO 1050 
1470 PRINT ES;''Filename ": iLINEINPUT Fl$ 
1480 OPEN FIJ FOROUTPUT AS#1 
1490 FOR 1 = 1 TO L:PRINT #1,BFS(I} 
1500 NEXT I: CLOSE: GOTO 1050 
1510 PRINT E$:"FiIename ""j: LINEINPUT F1 $ 
1520 OPEN Fl$ FOR INPUT AS #t:L=0 
1530 IF EOF(t)=0 THEN L = L+1 : LINEINPUT #1,A$ 
:BF( (L)=LEFTS(A(.34) :GOTO 1530 
1540 CL0SE:L2=1 :GOSUB 1550:GOTO 1050 
1550 LOCATE0. 3:F0R I = L2 TO L2+20 
1560 LN$ = RIGHTt(" "+STR$ (I) . 4) +' : " 
1570 IF I<>L2+20 THEN PRINT 
1580 IF I<=L THEN PRINT EJ ; LN$ :BF J (U : ELSE 
PRINT ES: 
1590 NEXT: RETURN 
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S7P^5A-A« 




cor. zi(m^^in^%Tum\^Ti\<'D^oito 



SUPER FI6HT.' 

icit/Richard=f'(< 



Cc7)7°a^"7A^^ff1-§fci^ 
y P ^'7 A 'J X h (i 3 :*:(Z-j^A^n 

§0 ^LT. -y-A^-r^t^(i 



MSXe VRAM64K 

'J7;M3:137^-i^Cfi« 

^;^ |^iJ;fD~A^W-rfc. 7'y^ 

^nr^rtA^Ts-s^ $fz. m^ 





SB A^ 6 (Z) :p K y\: ^ X 



i:^(Dmi~u-^tzJ:ifz. L^ofc 
x-mmuzi'^^^^^^^Lfz h(D, 

m^Hz ^7 7 -f -y ^ (iie L < 'j: -? 



tizfy^<mm±^x<%xxi^. 



h-^ 



Tl,T2 ^n-7ro^li 

Y(n) ^p-7©Y^#x-4' 

CD =l>bfzL-5'-®fTBiA^- 

> 

CC,PP(n) =i>b:iL-5'-ffl 

PM,PC cfa-yoD^mm 

XL(n),XR(n) S:6ffl^'P-7 

PD yu-1'-0iTKA5'-> 
WP.W(n),WP(n) i^vbfiL- 

PK jv^^a^mm 

SF yb-i'-0y';>^©^jsij 



10-130 ^)]mmm 

140-230 yu— f-(7)fTDffl5t^ 
240-310 7b-1^-®/';>^ 

320-330 yi'-p-(Dm'm 



340-390 
400-430 



ZlVbin— ^-©^TiS© 



q>t°^-5'-0^1!l© 



440-450 Zl>t°iL-^-©7-yS 
460-540 ^ytf:^—S>-(DJKy'?' 

550-670 sums^sasfiso-y-y 

680-850 JVy^(Dmi^nm 
B60-920 Slitt^roSiiS 

930-1010 m^t:z't^(Dmm 
1020-105D x^x-fv^ofiaa 

1060-1199 5'-fK;HiS©^^ 

1190-1300 r'-^^m^^'^s^mm 

1310-1420 ^mv"-^ 
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Va 



1/O.B.K.KICHI 



MSXe VRAM64K«gMSX^-Uot 



-Af-% 

mft^fzi!biziiusx^-L-z>m 

zzX7.^-:^^-ttzlt\~')ti 




ttzU-:>a'(7.7^'(y^^yn-V 

^n- \' 2 izmLxm^^^m^mi"^ 

^-tfzlti>3^:^^'( ■y^(Ti± 
TX'ttiMs f^ilL.. ^:^X''iM'fy3 

^-tfzUb')ti-AX/<>^^ 
n^Zi:i)^X'$^. mM(^±.mi: 

tzmzm'>t^^ t-y h-'-^-rVh 



X it a^ r« 



t^37fR 



^/3«6^*;/-</U 



lljplft/^ffl^^ 



MSX2 VRAMiaSK 

s^T, mttLtz^'-L.t^2^ X'Wmx$^iif3\ {Aj^nrtzu 




piOGEAMIfOUSE 






L L^/i ^ ^ (t i:; KICHI < ^c75*:^ 



7=-^ 



S{n),C(n) H^l! 

I50ffl 

X{n),Y(n) gmoffi^ 

L{n) )\y=^(j:,m.-ts 

H(n) gMtf^nruST^iS] 

V{n) y'CV^^fflXtf-K 

Z{n) a^®7bi-K 

HP(n) gmot-j^hTK-rvK 

D BIS®l2^ffl 

DE '?'-A^-K©^^ 

T.R ^-Atlffl 



^^ 



1000-1170 ^7)ffiS^ 

1180-1280 a^ro^Kl 

1290-1370 y'c^^^rosfts 

1380-1390 -r-A©^7¥!l^ 

1500-1530 HMttSftBU^x-:/^ 

EDOO-g090 g^y>;^-vro^fM 

BlOO-2160 ■S'-f SJUH®ro^'P/S 

B500-E540 7.75'fK®SII 

3000-3110 ■^"-A^-KfflSlR 

4D00-dD70 3t^(Da^ 

5000-5080 A>^tft-:/KL.fc;!)^ 

5090-5170 f-hM1^n 

8000-6000 SSItf'3O/)>0^ofc 

8070-6110- ^IS:5^(:l-©iSi9 

7000-7070 ^^^©saa 

8DO0-B0EO 3iiliSS7CD«ftS 



glSA^ 



6 oD T' K y\; -r X 



:lo(iL^L^r•■r 



(Silly- S ^'7 7 < -y :? V~)\^fiK 
fzlfi:\ ^(D^^m^^lii^hA, 






%B^(Dmmz-:)\^x(Dismt/ 



^ASTER BUSTERi^VaSSSillg 

mimMsxya<p'^L.:^±M n j 

(z}iK^ntiH!€3^P^^At(5l 



ftm, K^. ^i^. mmn^. y 

!i!ft:^V'J-t}b(Dt>(D\zm0^tc 



^ T107-24 

7C ~/a-K7n75^0R 



*^.i.m'ii 



;■&«< Ztf}'X-$^ 



tztify'f^S^m, 'j:ft"J:fri.^i.'!gL;fc-''j:. 
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DOKKAN FLOWER 
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-rtfuy-AT-'+f-rxzab^o s 
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i/a-S7P^5A • /^'5:^('-^^^^^-'>) 




SUPER FIGHT! 



10 CLEAR lB8,4HA00B:DEFlNTA-Z:AD=&HA0iaia 
20 FORl=0TOJ4:RE;ADAS:F0RJ=aT07 3: A=HSCCni 
UtCAS, J*2+l , 1 :i;: B=ASC^MID$i:a$. J*2+2, 1 5) 
:i0 IFA^U0rHEND=CA-6 1 )*10+B-81 :F0RK=2T0D: 
POKEAD.C: AD=AD+1 : tlEAT : GOTO50 
40 C=CA-65)*ie+E-S5:POKEAD,C:AD=AD+l 
SB NExT:BEEP:NEXTiPRnJT"SPFDTl .BIN OK" 
60 BSAyE"SPFDTl . B IN" , &HA000 , AD" 1 : END 
1000 DATA rJNTSNAADQr.DDDEDODEJJJJJKJKAAEE 
PPEEEEKJKKKKAAEEPPEEEEJKKKKKDOEDODEDJJJJ 
KJKJANDAQXNNyTFFNHFFNHQyFFNIJFFNI-JQVFFNNFA 
NNQTNAWAFAADDDNANNAAJAAJOUDJADAAKJKKKK 
1010 DATA JKAAKKJKAAAJKAAJAJKAKKKJAAADQU 
JAJDAADDDEEEEEDEDDAIJAADDEDEEEEEODDIJUNNAH 
DAOUAJNNC^^FFrjNAFNNQyFFNiiFFNNQVFFNhJFFNNQV 
FF[4NFFNNQVFFNr4FFNNFFHNBBCCAAPPOONNFFNN 
1B20 DATA BBCCAAPPOONAFANNBBCGAAPPOODEDD 
ADBACCAAPPOOEAEADAAACAAAPPOOJKJKJJAALMAA 
PPOOKKQTAAMMAAPPOOKJKKKKAAMMAAPPOOAAJAKJ 
AAhLAAPPOOAAJKAJAALAAAPPOOJJJJJAABCCAA 
1030 DATA PPOOArJAFNNBBCCAAPPUONiJFFNNBBCC 
AAPPOONNFFNNBBCCAAPPOONNFFNrJBBCCAAPPOONN 
FFNrJBBCCAAPPOONrnUIJAG/.AODDeTDJQTANDAEEOP 
EEJEJKKKNNAAEEPPEEE6JJKKNAADEEP0EEEJKJ 
104.B DATA KKA!JDADDOTJDQT^■JNNNA^JyUNNUVFFNI■J 
FFHNOVFFIJAADNNQVFFAADDNNQVFFANDAHANNOUFA 
AAJADJADHANAAJJJJKJJKKJKDJAAKAKKOUAAJAAJ 
QTKKKJJDAAKAQTJAJDDAAAADDDOEDEDDANNNAA 
1050 DATA DDEEQUNNWNANDADDEDEDDDNNQUANAF 
ANAFNNQVFFHNFFNNQVFFNNFFNHQVFFHNFFNAFANA 
BACCAAPPOODDDEDEDDADAAPPOOEEOUDDAAPPOODD 
EDEDDODAAAPPOOAJAJAAABCCAAPPOOAJOUCAAA 
1060 DATA PPOOAAKKKKJKAAAAPPOOKAKKKKKAAM 
AAPPOOAJKKKKAAMMAAPPOOADJAKJAALLAAPPOODD 
AAAJAJAAAAPPOODAAJKJJAACAAPPOOANAFANBBCC 
AAPPOOHHFFNNBBCCAAPPOONNFFHNBBCCAAPPOO 
1078 DATA NNFFNNBBCCAAPP00l'4HTTNANAAD0yNN 
AADDDEDODEJJJJNNHNAAEEPPEEEEKJNNNNAAEEPP 
EEEEJKNNAADDEDODEDJJJJHNNNAHOAOVHNVTFFIJN 
FFNNQVFFNNFFNNQVFFNHFFNHQVFFHNFFADADNA 
1OS0 DATA WNNHFFNAAJJKJKDJADAAAJJKKKOUJK 
AAAJKAKAKKQTKJfiAAKJKJKKJKJJDDAADOUDADAAA 
DDDEEEEEDENNNNAADDEDEEEEEDNrjQTANDAyUNNQy 
FFNNFFNNQyFFNlJFFNNQyFFNNFFNNQyFFNNFFNN 
1330 DATA FFNriBBCCAAPPOOHNFFNNBBCHAAPPOO 
NNFFHAADDDAAPPCjONNFAAADDEEAAPPOOAJJAAADA 
DDAAPPOOJKJAJKJKAJAAPPOOKAAKKKOTAAPPOOJJ 
AAKKKKAAAAPPOOKAJJKJKKAAAAPPOODDAAJAJA 
110B DATA AAAAPPOOODAAJJJKAJAAPPOOAAJAQT 
ACAAPPOONNFFHNBBCCAAPPOONNFFNNBBCCAAPPOO 
NNFFNNBBCCAAPPOONHFFNNBBCCAAPPOONNUONAAD 
QXDODEDOOEJJJJJKJKAAEEPPEEEEKJKKKKAAEE 
Ilia DATA PPEEEEJKKKKKDDEDODEDJJJJKJKJAN 
DAQXNNUyPFNNFFNNQyFFNNFFNNOyFANAFANNNNNA 
AJAJJJJKJANAAJJJJKKJKKAADDAAJJKKJKAKJAAA 
DDDJAOJAAJKKKKAKDAKKJKAAAJJAKJKJJAKKKJ 
1120 DATA AAAJKKAKAKKAJDOAAJJAJJKJiilTAHNN 
ANJAAJAAADADI4N0UANFFANDANN0yFFNNFFNNQVFF 
HNFFNN0VFFNNFFNN0VFFNNFFNNFFh4HBBCCAAPP00 
HNFFNNBBCCAAPPOONNFANABACAAAPOOOADDDQV 
1130 DATA ADOADDDEEEQTDEDDQTEEOVDDQUEDOT 
DODDDAAKDAOyAOOOKKKKKJAALLAAPPOOJJJAJAAJ 
UAAAPPOOADDDDDAACCAAPPOODAOAANBecCAAPPOO 
Nf-IFFNNBBCCAAPPOOHNFFNNBBCCAAPPOONNFFNH 
1140 DATA BBCCAAPPOONNFFNNBBCCAAPPOONNTT 



r4AQXNDDD0TDJQUDAEE0PEEJEJKKKKKAAEEPPEEEE 

JJKKKKADEEPOEEEJKJKKKKDADDQTJDOUNNANQXNN 

UyFFNNFFNNOVFFNNFFNNQVFFNHFFNNO^JFFNNFF 

IISE DATA Nr4QTNAAD0yNAAADDDEEEEEDEJKDJAA 

DDEDEEEEEDKKKKAAAJDAQUKJJDAAAJKAADDDOEDA 

AAJJKKAADDEEEENNAHJAJJAJDADDEDHNOTANANJA 

AJAJNHO^JFFANAFNNQVFFNtJFFNNQVFFNNFFNNQV 

1160 DATA FFHNFFHilFFNNBBCCAAPPOONNFFNNBB 

CCAAPPOONNFFNNBBCCAAPPOONNFANABBCCAAPPOO 

AAJJJKAJCAAAPPOODDAAJAJAALAAPPOODDAAJJAA 

llIIAAPPOOAAKAKKAAnriAAPPOODEDDAOAAMMAAPP 

1170 DATA OOEEEEDDAALLAAPPOOEDODDAAJAAAA 

PPUUAJAJJAJAACAAPPOOANAFNNBBCCAAPPOONNFF 

NNBBCCAAPPOONNFFNNBBCCAAPPOONNFFNNBBCCAA 

PPOONNURNAAOQUAADDDEDODEJJJJJKNNAAEEPP 

1180 DATA EEEEKJKKNNAAEEPPEEEEJKKKAAODED 

ODEDJJJJKJNNANDAOUNNUyFFNNFFNNOVFFHNFFNN 

QVFFHNFFNNHNNAQTFFNAFANAAJJAADOUJAADAADD 

DEEEEEDEDDJJAADDEOEEEEEDDDKKJKAJDAQUAJ 

1190 DATA KKKJJAADOUJAJJAADDOEEEEEDEDDDA 

AADDEOEEEEEDODANJAAJDAaUAJNNNNANQTFFANAF 

NNOyFFNNFFNNOyFFNNFFNMQVFFNNFFNNFFNNBBCC 

AAPPOONNFFHNBBCCAAPPOONNFFHNBBCCAAPPOO 

1200 DATA NNFFNNBBCCAAPPOOAJAJNABACCAAPP 

OOAAKKJAAAALAAPPOOAAAJJJAALMAAPPOOJKKKKK 

AArWAAPPOOKJKKKKAAhhAAPPOOAAJAJJAAMLAAPP 

OOAAKKAJAALAAAPPOOJAJAANBBCCAAPPOOANFF 

1210 DATA NNBBCCAAPPOONNFFNNBBCCAAPPOONN 

FFNHBBCCAAPPOOHNFFNMBBCCAAPPOONNUYNAADQX 

ODDEDODEJJJJJKJKAAEEPPEEEEKJKKKKAAEEPPEE 

EEJKKKKKDDEDODEDJJJJKJKJAHDAGIXNNT^FFNH 

1220 DATA FFNNQVFFr-lNFFNNQyFFNNFFNNQyFFHN 

FFNNQVFFNNFANNNNNAADQUJAHAAADDDEEEEEDEDD 

DJAADDEDEEEEEDDDKKJKAADAOUAJKKKJAAJAAKJA 

JAAKJDDAAAJKKKKKKJAAANNNAAAJJAOUNNQTAN 

1230 DATA ANAFDADDNNO^FFNNAFNNOyFFNNFFNN 

QVFFMNFFNHFFNNBBCCAAPPOONNFFNNBBCCAAPPOO 

Nr'4FFNNBBCCAAPP00NNFFNNBBCCAAPP00NAFANNBB 

CC AAPPOO J J J J A J B ACCAAPPOOAAK J J AAAALAAPP 

1240 DATA OOAAAJJKAALMAAPPOOJKKKKKAAMMAA 

PPOOKKQTAAMMAAPPOOKJKJJJAAMLAAPPOOAEAEAD 

AAACAAPP00E0DDDAABCCAAPP00ANAFNH8BCCAAPP 

OONNFFNNBBCCAAPPOONNFFNNBBCCAAPPOONNUS 

1250 DATA NAOXADDDQTDJQTANOAEEOPEEJEJKKK 

NNAAEEPPEEEEJJKKNAADEEPOEEEJKJKKANDADDOT 

JDQTNNNNANQUNNTXFFNNFFNNOyFFNWFFNNOVFFNN 

FFNNOUNAFANAFANNNNNAADDDDEDEDDNANNAADD 

12B0 DATA EEQUDJADAAOADDEDEDDDKKJKDJAAAK 

OTAJKKOTAAAJJAQTKKKJJDAAAKKKOTJDDAANANJA 

JJKJJJANNNQUAFAAAJNNQVFFNAADNNQVFFAADONN 

QiJFFANDANNOiJFFNNFFNNFFNNBBCCAAPPOONNFF 

1270 DATA NNBBCCAAPPOONNFFNNBBCCAAPPOONA 

FANABBCCAAPPOOADJAJKAJCAAAPPOODDAAJAJAAA 

AAPPOODAAJJKAALLAAPPOOJAKKKKAAMMAAPPOOAK 

KKkkAKMAAAPPOOAAKKKKKJAAAAPPOOJAOUACAA 

1280 DATA PPOOJAJAAABACCAAPPOODDDEDEDDAD 

AAPPOOEEQUDDAAPPOODDEDEDDDDAAAPPOOANAFAN 

ABCCAAPPOONNVQNAADOVNNAAODDEDODEJJJJNNNN 

AAEEPPEEEEKJNNNNAAEEPPEEEEJKNHAADDEOOD 

1290 DATA EDJJJJNNANANDAQVNNTXFFNNFFNNOV 

FFNNFFNNOyPFNNFFNNQVFFNNFFNNQTNAADQUNNNN 

AADDDEEEEEDEADADAADDEDEEEEEDJKJKDJADDAOU 

KKOTJKAAKAKJKJKKQTkJAAJAAKAKKJKJJDDAAA 

13S0 DATA JAKJkKDADAANIIIJNNFFANJANHy^FFHN 

FFNNQVFFNNFFNtJQVFFNNFFNNQVFFNNFFrJNFFNNBB 

CCAAPPUONNFFNf-JBBCCAAPPOONr4FFIJN8BCCAAPPUU 

NNFFNrJBBCCAAPPOOAAAJQTCAAAPPOUDDAAJJKJ 

1310 DATA JAAAPPOODDAAAJAJAAAAPPOOAKJJJk 

KKAAAAPPOOJJAAKKkkAAAAPPOOAkkAkkWTAAPPOO 

kJAJKJkJJAAAPPOOJAAJAAADDDAAPPOONNAFAADD 

EEAAPPOONNFFANDADDAAPPOONIJFFNNBBACAAPP 

1320 DATA OONtJFFNNBBCCAAPPOONNUONAADQADD 

DEDODEJJJJJkJKAAEEPPEEEEKJkkKKAAEEPPEEEE 

JKKKKkDDED0DEDJJJJKJKJANDAQxNNUyFFr4NFFNN 

QVFFHNFFNN0VFFHNFFNNQVFFNNFFNh4aUNAFFNA 

1330 DATA ADNANNNAAJJAAADAOADJADJAAJJJJK 

QTKKJKAAJAKKKAKAAKKKKJAAJAAJJKJKAJJDDAAJ 

JAKKkkKAADAAJJkKKJKAAJAADDANJAJJKJJkkKAA 

DDNNNNANJAJAJJkJAJNNQVAFANAFNNQVFFMNFF 

1340 DATA NN0yFFr4NFFNNFFNNBBCCAAPP00NNFF 



V, ' 
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NNBBCCAAPPOOrJHFFNNBBCCAAPPOONNFFHiJBBCCAtt 
PPOOADADNABBCCAAPPOODADDODAACCrtHPPOUJJAJ 
AJJAALAAPPOOKKKKJKAALLAAPPOOKArtUQVOApO 

1 SI CLEAR I BIB . &HAEC8 : DEF 1 NTA-Z : AD=&HAEC0 
2Q FORl=iaT035:REAOA$:FORJ=IZIT073: A=ASC<MI 
UStrtS, J*2+l , 1 3 ):B=ASC<niOSCAS. J*2+2, 1 )) 
318 IFA>eiaTHEND=CA-ai i+lB+B-Sl :F0RK=2T0D: 
POKEAD.C: AD=A0+1 : ME^.T :G0T06IZI 
4ffl IFA=42THEH1=35: J=73:GOTOe0 
50 C=CA-65J*1S+B-B5: POKEAD.C: AD=AD+1 
60 ME.>^.T:BEEP;NE.^T:PRINT"SPFDT2.BIH OK" 
70 BSAyE"SPFDT2.BlN",&HAEC8, AD-I : END 
1000 DATA DDDDOEOTDDDDADDDEEOyDDOTEDEEOT 
EDDDDDDADDQVDAAONNAFANABACAAOPOONNFFNNBB 
CCAAPPOONNFFNNBeCCAAPPOOHHURNAQXADDDOTDJ 
QUDAEEOPEEJEJKKKKKAAEEPPEEEEJJKKKKADEE 
10 10 DATA POEEEJKJKKKKDNDDQTJDQUNNANOXNN 
TXFFNNFFNNQVFFHNFFNNOVFFNNFFNhJQ^FFNAFANN 
OTHANAAJJAJANNNAAJJJJAADDDDEADAAJJKKAADD 
EEEEJKDJAAJAAKDADDEDKKKKAAJAADQUKJJDAA 
1020 DATA DDDEEEEEDEOAANAAODEDEEEEEDNNOT 
AMDAOUNNQyFFNHFFNNQyFFNNFFNNOyFFNNFFrJNaV 
FFNNFFNr4FFNNBBCCAAPP00NNFFNNBBCCAAPP00NN 
FFNNBBCCAAPP00NAFANNB8CCAAPP00JAJAAJAJ 
1030 DATA CAAAPPOODEDDADJAAAAAPPOOEEEEDD 
AALLAAPPOOEDDDDAAAMMAAPPOOAAAKKKAAMMAAPP 
OODDAAJJAAMMAAPPOODDAAAJAJLAAAPPOOAAJJKJ 
jArtCAAPPOONNAFANBBCCAAPPOONNFFNNBBCCAA 
1040 DATA PPOOrjNFFNNBSCCAAPPOONNFFNNBBCC 
ArtPPOOAAOWABCCI IQUHHQUI I AI Al AAAAAHBHHHAl 
QUAHAHBHCHl I I AQTHAHHHBHCI AQUHAHABBCCAAOU 
BBCCAAQUBBCCAAOWBBCCAAQWBBCCAAQWBACCAA 
1050 DATA ADADAEAEADADAAAAADODPEPEODADAA 
DDDEEEOUDEDDDDPDEPEEOTEDDDAADADAEAEADADA 
AAAAADADAEAEADADAADDDEEEOUDEDDDDPDEPEEQT 
EDDDAAOADOEPEPDODAAAAAOADAEAEADADAAAQX 
1060 DATA ABCCAAQWBBCCAAQUBBCCAAOUBBCCAA 
QUIBBCCA 1 OUAHAHBHCH I I I AOTHAHHHBHC 1 AQUHAHA 
BBCC 1 1 QUHHQUAAQWBBHHAAOUBACCAAAAAOOPQyAA 
OOPPPAA 1 AHAHAAAAOOPPAAHAHAAFNAAAOOPPAA 
1070 DATA GGFFAFNAAAOOPPAAGGFFFAANAAOOPP 
AAAHAHFAANAAOOPPAA II H I HHAAAAOOPPAA I I I HHH 
AAAAOOPPAAHAHAAFNAAAOOPPAAGGFFAFHAAAOOPP 
AAGGFFFAANAAOOPPAAAHAHFAANAAOOPPAA I 1 H 1 
10B0 DATA HHAAAAOOPPAAl 1 iHHHAAAAOOPPAAHA 
HAAFNAAAOOPPAAGGFFAFNAAAOOPPAAGGFFFAANAA 
OOPPAAAHAHFAANAAOOPPAA 1 1 H I HHAAAAOOPPAA I I 
IHHHAAAAOOPPAAHAHAAFNAAAOOPPAAGGFFAFNA 
1030 DATA AAOOPPAAGGFFFAAUAAOOPPAAAHAHFA 
ANAAOOPPAA I I H I HHAAAAOOPPAA I 1 1 HHHAAAAOOPP 
AAHAHAAFNAAAOOPPAAGGFFAFNAAAOOPPAAGGFFFA 
ANAAOOPPAAAHAHFAANAAOOPPAP I fSHAHAAAQTOA 
1100 DATA POOyOPQYANQYNNZZNNZZNNSWHAOYPO 
QYOPOYANOVAFANAFrJNOVFFNNFFNNQyFFNNFFNNQy 
FFHNFFNNQVFFNNFFNNQyFFNNFFNNOVFFNNFFNNOV 
FFHNFFNHQyFFNNFFNNQyFFNNFFNNOyFFNNFFNN 
1110 DATA QVFFNNFFHNQVFFNNFFNNQVFFNNFFNN 
OVFFNNFFNNO'-'FFNNFFHNQVFFNHFFNNQVFFNNFFNN 
QVFFNNFFNNQVFFNNFFNNQVFFHNFFNNOVFFNHFFNN 
QVFFNNFFNHOVFFNNFFNNQVFFNHFFNNOVFFNNFF 
1120 DATA NNOVFFNNFFNNOVFFNNFFNNOVFFNNFF 
HAOVFANAFAPOOYOPOUAOOAANAFANABACPAPPOONN 
FFNNBBCCAAPP00NHFFNNBBCCAAPP00NNFFNN8BCC 
AAPPOONNFFNNBBCCAAPPOONNFFNNBBCCAAPPOO 
1130 DATA NNFFNNBBCCAAPPOONNFFNHBBCCAAPP 
OONNFFNNBBCCAAPPOONNFFNNBBCCAAPPOONNFFNN 
BBCCAAPPOONNFFNHBBCCAAPPOONNFFNNBBCCAAPP 
OONNFFNNBBCCAAPPOONNFFNNBBCCAAPPOONNFF 
1140 DATA HNBBCCAAPPOONIJFFNNBBCCAAPPOONN 
FFNhJBBCCAAPPOONHFFNNBBCCAAPPOONNFFNNBBCC 
AAPPOONNFFNNBBCCAAPPOONNFFNNBBCCAAPPOONN 
FFNNBBCCAAPPOONHFFWNBBCCAAPPOONNFFNHBB 
1150 DATA CCAAPPOONHFFNNBBCCAAPPOONNFFNN 
BBCCAAPPOOHNFFNHBBCCAAPPOONNFFrJNBBCCAAPP 
OONAFANABACAAPPPOOPOOUOAAOOOOPai^AOAAAAAO 
OUPAPPOOAAAAAOAAQTPPOOAAOOAOOOAOAAPPOO 
11B0 DATA AAAAAOAAQTPFOOAAOOAOOOAOAAPPOO 
AAAAAOAOAAAAPPOOAAOAAOAOOAAAPPOOAAQUJPPOO 



AAOOOAOOOAAAPPOOAAOAUAAAOAAAPPOOAAUOAC 
OOAAPPOOAAOAAAAAiOAAAPPOOAAAOOAOftAOAAPP 
117a DATA OOAAOAAAAAOAAAPPOOAAOAOOOAUAAA 
PPOOAAOAQUAAPPOOAAOOOAOOOAAAPPOOAAOAQUAA 
PPOOAAOOQAOOQAAAPPOOAAOAOAAAOAAAPPOOAAOO 
OAOAOOAAPPOOAAAAOAOAAAAAPPOOAAAOOUAOOO 
1160 DATA AAPPOOAAOAAaOAAAAAPPOOAAOOOAOA 
OOAAPPOOAAOAQUAAPPOOAAOOOAOOOAAAPPOOAAOA 
AAOAAAAAPPOOAAOOAOQTAAPPOOAAOAAAeTAPPPOO 
OOPOQVOAAAOPQYANOYNNPPNNPPNNHNNP I 1 NHPP 
1190 DATA NNPPNNNNPPNPNNPiNNPINNOTPNNNI I 
NN 1 I NNNH 1 HPNNH 1 I NN 1 1 NNOyHHNNHHNNNH 1 NPNWN 
HNNNHNNNNNPP I NNPNPNMNMNLNNPPN 1 PPNNMMNHQU 
INPNNNMNNNOTI IPNOTMNMNLNNNI IHHPPPNMtJMN 
1200 DATA LLNNINNNPPNNMMNMLLNNPPPHNPNPNM 
NMNLNNPPNPNNNNMMNNQUPNQTMNMNLNNNNPN 1 PPNN 
OVPPNNPPPNMNMHLNNNPPNNHPIJPNNNMNLNNN I NPPP 
NNMMMNLLNNNNN 1 PNPNMNNNLNNNPP I NNNNHIJNNH 
1210 DATA NNNNPNI INHHHNNHHNNNNNINPNNI INN 
I I NNOV I I NN I I NNNNN I NPNN I PNN I PNNNNNPNNNNPP 
NNPPNNNNPPNPNNPPNNPPNNNNPPNNNAQYPOaVOPaY 
ANOVAFANAFPI-1 1 1 NPNNCNCFCCFBNNNNPPNPNNFF 
1220 DATA NCBBPNNNNNPNCNCFCNFFirjPNPNCNCN 
CFCCFBNNQ^FFNCBB I rjPNPNCNCNCFCNFFPNPf ICNCC 
CNCFBNBFNNNNNCCCNNFFNNFFPNPNCNNNNNFFfJNFF 
PNCNCCCNCNCFBNBBNNNNCCNNNNFFNNBBNNNNCN 
1230 DATA NNNNFFNNBFCNQTCCCNBFBNBFNIJNNfJC 
CCNCFFNNFFCNOTNNCNBFBNBFNPN I NPNPNEFEIJEFD 
NNNNPPNNrjNFFNNFFNNNNPPNNNNFFNNFFN I NPNPNE 
NEFENEFDNPNPNEQTFENDFFNNNNNENNNNFFDNDD 
1240 DATA NPNNEENENEFEDDOFNPNEOUFENDFDNN 
NNEENNNNFFNNFFNPNEEENENEFENDFDNNOVFFNNFF 
NEOVFDNDFDNNOVFFNNFFNAOyFANAFAPOOYOPOYAN 
APAMAMANQUPNNPNNNMLNNNNNNANNNPNMNMNNNrj 
1250 DATA AAHHPNNPNMNMLNNNAAl INPNPNMNMNL 
NNAAHHNPPPMMMMNLNNNNANNNNPNMNMNNQUPPNNMM 
NMLLNNOTNPNPNMNMNLNNOTPNNPMNNMNLNNPNPNNN 
NPNMNMNLNNPNQTNPMMNMNLNNNPPNNPNNQUPNPP 
1260 DATA PNMNMNLNNNPNPNNPNPNnNHNNNNPNPN 
NPNPNMNMLNNNNNNPOTNMNnNLNNPNNPNNQULLNNNP 
NPNNNPNMNMNLNNPNNPPNNPMMNMrJLNNNPQTNrJOyPP 
NNPPPNMrJMNLNHNtlTNPNPNMNMMLNNQUNPNMNMNN 
1270 DATA OUPNNPNMNMLNNNNNNANPNPNflNnNLNPg 
AAHHNPPPMMMnr'4LNNAAl UJriNPNririNNLNNAttHHPPNN 
MriNMLNNNNNANNAQULANAOTPOOYOPQYANOVAFANAF 
A I A 1 NANfjrJNFFNAFFA 1 A 1 H I AHIJAAHH I AA 1 F I P 11 
1280 DATA I IHHIPI lAAOAOAlHHAANHAlHAAlAlA 
ANNNNNFFANFFNNOUNPFINIFFNNOTPNNPFFNIHFNN 
QTNPNPFINlFHNCNCNBrjPNPl 1 rJIFHNNOUNPF IN IFH 
CNCNNBPriNPI UnFHCNCNNNNPNPFINlFHCNCNNB 
1290 DATA NPPPFINIFHCNCNNNNPNPFINIFHNCNC 
N6PNNP 1 FNNFFCCNCNBNPNPF 1 N ! FHNCNCNBNNNPF 1 
N I FFCNNCNBPNNPF I N 1 HFNCNCNBNPNPF i N I FHCCliN 
BBNPPPI 1 I IFHNNOVFFNNFFNNOTPNPNIFNNHFNN 
1300 DATA OTPNPNIFNHHFAIAINANNNNFFNAFFAI 
A I H I AHNAAHH 1 AA I P 1 P I I I I HH I P I I AAOAOA I HHAAN 
HA 1 HAA 1 A I AANNNNNFFANFFNA0VFANAFAP0QYB6AA 
ACDKEOLLEHKPMGCABAPM 1 DFPCG JOCO 1 ADKFALL 
1310 DATA ABIAABAJDNMCJILKABIAAADOADDCFB 
LLNFOFNFMNFflAAOBABAAABAJFEFNOBABIAAAAJAB 
lAAAOKFBLLDNDCFBLLMCKGLKNBDKFALLPOAFMKNA 
LKPOALMADKEPLLEHDKEOLLL i M 1 DCEPLLGCGLAB 
1320 DATA PIAAAJFEFNDOACDCFBLLNFCBFCLLAB 
A I AAMNFMAANBNFABAAABMNBMLLCBFKLLABA I AAMN 
FMAANBABI 1 AAMNBMLLDKFBLLDNDCFBLLMCOJLKDK 
EOLLDCEPLLMJOLAJOLMJABAAAGBBAAAACBIALA 
1330 DATA MNFMAAMJDKFALLEHCBIALEBBAAACBJ 
BAPNABAAACMNFMAAMJCBGCLLBBAAD I ABCAABMNFM 
AAMJAAOUNNOVFFNNFFNNFFNNBBCCAAPPOOAPDPHP 
HPPPOYHPHPDPAPPAPMPOPOPPQYPOPOPMPAPPQU 
1340 DATA PAQYPPQYAPQYPPQUADRWMARUPPQUAA 
AAPPOUPAPAPPOYAPAPPPOUAAAAPPOYAAAAPPOUAA 
AAPPOYAPAPPPQUAPAPPPOUPAQUPPQUAAOUAPOUPP 
OUAPQWPPQUPAPAPPQUAAAAPPQYAAAAPPQUAPAP 
1350 DATA PPQUPAQWPPOUPAPAPPQUAAOWPPOUAP 
APPPQYAARSPPQUAPRS** .. , , 



10 
20 



138 





30 ' PROGRAM RICHARD- N«KA 

463 ■ MSX2-'2+^TK ADVISE MISTER- SUOH 

50 '• • 

B0 COLUR15,0,0:SCREEri3,3:DEFINTA-Z 
70 CLEARSaa . &HA0ffl0 : SETADJUST< 0,0) 

80 DIMWCb.3 j,PPC29),UPC3^.SaC3 1 >,SY':31 ) 

90 OPEH"GRP: "AS«1 : DEFUSR=&HBA8a 

100 DEFUSR1=&HBB20:DEFUSR2=&HBB2D 

1 10 DEFUSR3=&HeB41 : BLOAD"SPFDT 1 .BIN" 

120 BL0AD"SPFDT2 .BIN" : A= I NTCRNDi; -T IME ) ) 

130 GOTO1200 

140 ■• ■ PLAYER • 

150 ONPDGOTO2G0.28ffl 

160 S=CST1CKC 1 )+n*2: IFS=2THErJT 1=0 : T2 = i 

170 1FS=4THENT1=1 :T2=a 

180 PH=-STRlGCn:CB=STRIGi:3) 

130 IFPD=3THEN330 

200 yPOKE&HlB03, 1+Tl : VPOKE&H1B07.. 1+T2 

2 10 1FPH+CB=0THEN350 

220 IFCBTHENPD=3:GOTO320 

230 IFCD>aTHEN350ELSEPD=Tl+T2*2 

240 I FPHANDS=3 THErjPM= 1 : PC=0 : SF=2ELS£Pn=- 

1 :PC=5 : SF=0 

250 1FT1THEN260ELSE280 

260 PC=PC+PM:yPOKE&HlB0 1 ,XLCPC>+UJ 

270 VPOKE&H1B00, YCPC):GOTO300 

280 PC=PC+PM: VPOKE&HIBBS.XRCPO+UI 

290 VPOKE&H1B04, YCPC) 

300 1FPC=3THENPM=-PI1:GOTO690 

310 IFPC=5ORPC=0THENPD=0:GOTO350ELSE350 

320 PD=3:GOSUB630:GOTO358 

330 GOSUB640; IFCB=0THENPD=0 : GOSUB560 

340 ■• • COMPUTER • 

350 ONCDGOTO4e0,530.530 

360 IFTT>0THENTT=TT-1 :G0T038a 

370 ]FPD=8ORPO=3THEN460 

380 F=F+1: IFF=3THEN440ELSE150 

390 IFR>69THEN15a 

400 lFX=10R>^=3THENx=2ELSEx = l-CR^51 J*2 

410 Ui=x*32:POKE&HBB4E.x:A=USRC0) 

420 I FPD=0THENGOSUB560ELSEGOSUB630 

430 GOTO150 

440 FW=FWX0R1 : F=0 : POKE&HBB50 , FW*6+5 

450 A=USRCa):GOTO150 

460 R=1NTCRNDC 1 )*100): 1FR>29THEN390 

470 PK=-CR> i4ANDR<25 J*2-t:R>24)*4-;RM0D5 = 

0>:CD=1 :CC=0:C=FU*6:GOSUBB50 

480 1FT=TMTHENT=0ELSET=T+1 : GOTO 150 

490 B=PPCPK*5+CC) : CC=CC+1 

500 POKE&HBB50,B+C:A=USRC0) 

5 10 I FB=4THEJ-1CD=UTC PK > : TT=5 ; GOTOa00 

520 GOTO150 

530 C0=CD-1 : I FCD=1 THENCD=a : GOTO770 

540 GOTO 150 

550 '• ■ SUB • 

560 PUTSPRITE0, C XLCPC)+W. YCPC) ) . 1+Tl : PUT 

SPRiTEl . CXRCPC)+U, YCPO), 1+T2 . 3 : RETURN 

570 PLAY"S9M300aL4O5CCC" , "S9M3000L4O6CCC 

". "S9M3000L4O7CCC" :PUTSPR1TE0. (0.208) 
580 TinE=0:FORI=0TOl 

530 1=-CTIME>5*L): NEXT: RETURN 

600 PUTSPRITE4, CI 12.-1 ),B,Ly+2 

610 PUTSPRITE2 , (48.-1 ).5.CP+1 

620 PUTSPR 1 Te3 , C 172 , - 1 > . 6 , PL+ 1 ; RETURN 

630 PUTSPRlTEi . C4a+U, 135). 1 ,0 

640 PUTSPR 1TE0. CCX<T2)+W. 135), 1 [RETURN 

650 S0UND12, 1 :S0UND13,3:RETURN 

660 S0UND12. 10; SOUND 13. 3: RETURN 

670 SOUND 1 2 . 22 : S0UND13 . 3 : RETURN 

680 '• • HIT • 

690 GOSUB66a:R=lNT(;RND( 1 )* 16 ) : WP=SF+T2 

700 IFWPCWP)+1<RTHEN780 

710 WPCU1P)=WPCUP)+1*CUP<UP)>0) 

720 GOSUB670:FOR1=0TO7:R=INTCRNDC 1 >*7 ) 

730 C0L0R=C8,R,R.R) 

740 COLOR=C 10,R+1 ,R+1 ,R+1 ):NEXT 

750 COLOR=(9.6.3,2):COLOR=( 10,7.5.4) 

760 CP=CP-1 : lFCP=0THEN94aELSEGOSUB8 10 

770 POKE&HBB50 . FlJ*6+5 : A=USRC0 ) : GOTO350 

7B0 POKE&HBB50.B: A=USRC0) 



790 CD=3:L=1 :GOSUB580:GOTO150 
800 GOSUB650: IFPD=3ANDFU=T2THeN770 
8 10 G0SUB67a : K=CPK¥2 )*8 : F=- 1-(FU=0 >»2 
320 FOR1=0TO7:R=!NTCRNDC 1 )*7) 
830 C0LOR=C15.7,R+l,R+l );C0L0R=C14.7.R R 
) : SETADJUSTCSXCK+I )*F . SVC K+ 1 > > : NEXT 
840 C0L0R=C 15.7,7,7):C0L0R=C 14.4.4,5) 
850 PL=PL-1 :GOSUB610: !FPL>0THEN770 

880 '• ■■ SK.O. • 

870 L=50:SOUND7.56:GOSUB570:CLS 

880 LV=0 : PL=7 : L=90 : SETADJUSTC0 . -7) 

890 FORI=0TO1:PRESETC4-1*4.64) 

300 PRlNT*tl . "GAMEOyER'-rNEXT 

310 FORI=lTO14:SETADJUST(0,-7+l ) ; NEXT 

920 GOSUB5a0 : SETADJUSTC . ) : GOTO 1070 

930 '• « um 9 

840 L=50:SOUND7,56:GOSUB570:CLS 

950 IFLV=6THEN1030 

960 FORI=0TO1 :PRESETC52-1*4.60) 

370 PR I NTS 1 . "ROUND" :PRESETC 52- 1*4. 100) 

880 PR I NTH 1 , "CLEAR": NEXT :LV=Ly+l 

990 PS="L16CDEFEFGA":PLAYPS,PI.PS 

1000 PL=PL-<PL<7):L=G0:GOSUB5BO 

1010 GOTOl 100 

"320 '• — « ALLCLEAR • 

1030 A=USR1 ( ) : POKE8=HBB50 . 2 : A=USR2C ) 
1040 PS="L16CDEFR16EDEFGR16FFER16EFGABRC 
'■:PLAY"02"+PS. "03"+PS. "04"+PS: AN=a 
1050 L=150:LV=0:PL=7:GOSUBS80 

1060 ■• « TITLE • 

1070 A=USRK0>:L=24;GOSUB570 

1280 POKE&HBB50, 1 : A=USR2C0) 

1090 IFSTRIGC 1 )=0THEN1090 

1 100 A=USRI(0):CP=7:PLAY"BA"."eA","BA" 

1110 X=2:PD=0:CD=0:GOSUB580:GOSUBSa0 

1120 POKE8=HBB4E.2:POKE&HBB50.5: A=USRC0) 

1 130 PC=0 ; CC=0 : T 1 =0 : T2= 1 : y=64 : GOSUB560 

1 1 40 TM=3-L'J*2+AN : L=6 : G0SUB5Bei : L= 1 2 

1 150 PS="M5000L2F": PLAYPI.PS. PS 

1 160 GOSUB5e0: FORI =0103 :WPC I )=WCLV, 1 ) 

1 170 NEXT:S0UND7.55: S0UND6 . 10 

1 lea S0UND8. 16; SOUND! 1 .0: GOTOl 50 

1 190 -• _, READ • 

1200 F0R1=1T014:READA,B.C 

1210 C0L0R=C I , A.B,C):NEXT 

1220 FOR1=0TO5:READ>;LC I ) . xR( 1 ), Y( I ) 

1230 NEXT: A=USR3<0);CXC0)=16:CXC 1 )=80 

1240 FORI=0TO29: :READPPC I ):NEXT 

1250 FOR1=0TO5:READUTC I ):NEXT 

1260 FOR 1=0 706: FOR J=aT03:REAQUC I.J) 

1270 NEXT:FORI=0TO7:READSXC 1 ).SYC I ) 

1280 SXC I+8>=SYC 1 3:SY': l+8)-SX< 1 :< 

1290 SXC I+16)=SX( I ):SY( 1+16)=-SYC 1 ) 

1300 AN=1 :LV=0:PL=7:GOTU1070 

1310 ■• « Qft|-A • 

1320 DATA 1.1,7.1,3.7.4.0.0,7.0.0.0.2,0 
1330 DATA 0,4.0.5.5,0,7.7.0.6.3.2,7,5,4 
1340 DATA 3.0,3.5.0,5,0, 1 . 1 ,4.4,5 " 
1350 DATA 16,80,143.0.96.127,8.88,103 
1360 DATA 32.64.95.24,72.119.16,82.143 
1370 DATA 1.1,4,5.0,1.4,5.0.0,1.2,2 4 5 



1380 DATA 1 .2,4.5 

1390 DATA 0.2,2,3.2 

1400 DATA 2.3.1,1.3 

1410 DATA 0.0.0.3.3 

1420 DATA 0,-1.0,0 



, 1 ,3.3.4.5. 1.3,4.5.0 
.3,5.7.2.5.2,5.4.6,5 
,2,5.1,1.3.4,0,3.2.0 
,7.3.5,2.3.2.2.1.1,0 
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1000 ' r 1 

10 10'! V4 I 

1020 ■ I VISITOR ta V L•^lal^ ! | 
1030 ■ I VICTORY OJ y ft" ! 4 1 



PROGFWM HOUSE 139 



Ilil48 ■ I O.B.K. Presents I 

105^ ' I PROGREMMED BY KICHl I 

laeei - i 1390/12 I 
107a ' ' ' 

1030 ' 

1030 SCREEN . ,0 
1 100 ^TURBO ON 

Ilia DEFINT A-Z:DEFSNG S.C;DIM SC63>,CC6 
3>,KCl),YClJ,Li:i3,HCl),'^Cn,2Cl>,HPCl> 
1120 COLOR 15.a,0: SCREEN 5,2:G0SUB 2000: 
CLS 

1130 GOSUB 30eiB:COLOR=C 15,7.7,7):S0UND 7 
,28: SOUND 6,15:SOUNO 1.0: SOUND 3,0 
1140 ,>it0)=ia8:Y(0) = 100:HC05=16:X<i:i=2250 
:YC = 1820 ;HC 1 >=4B : LC >=0 : L( 1 >=0 
1150 ZC0)=0:ZCi:)=ia:LINEC5, 10J-C251.201J, 
15. B 

1160 FOR 1=0 TO 1 :HPi; 1 >=245:LlNEi:5, i*204 
)-';251 , 1*204+7 ), 15, B:NE?'.T 1 
1170 FOR l=e TO 250:FOR J=0 TO nLlNEtl. 
J*204+n-": 1 . J*204+6). J*2+4.BF:NExT J, I 
1 IBU D=0:FOR 1=0 TO 1 

1190 X=XC 1 ):Y=Y; 1 ):H=HC 1 ):2=2C n:F=l : IF 
H>99 THEN H=H-10a:F=0 
1200 PUT SPRITE I . CX¥ 10 , Y¥ 10 ) , I *2+4 , H*2 

1210 IF ABScxc i-n-xxaa and abscyci-d- 

YXB3 THEN GOSUB 6010 

1220 IF 1=0 THEN R=STICK<03 OR STICKCl): 
T=STRIGCB) OR STRIGtl) ELSE R=ST1CKC2>:T 
=STRiGC2? 

1230 IF LCI)>0 AND DE THEN 12G0 
1240 IF F THEN H=< H+C CR=7 )-CR=3 ) )*C 1 +C'v'C 
1 )>0) J + i:R>5)-';R<5 and R>n+64> MOD S4 
1250 2=Z+CC2>-90 AND R>3 AND R<7)-i:2<90 
AND <R=1 OR R=2 OR R=B>))*10 
1260 X=X+CCH:>*Z*(;2-CR=1 or R=5) J¥9: Y=Y+S 
i:H)*Z*i:2-iCR=1 or R=555¥3 
1270 GOSUB 1510:Z=CZ-SGNCZ))*C1-F2) 
1280 XC U=x: YC U=Y:HC 1 >=H:ZCI )=Z 
1290 IF T THEN IF LCI)=0 THEN Li I :>=-]. :V(. 
1>=80 ELSE IF Vt n=75 THEN ^C 15=30 
1300 IF L'; 1 >=0 THEN 1370 

1310 X=X+C(HJ*LC I ); Y=Y+SCH)*H: I :):GOSUB 1 
510 

1320 IF F2=l THEN H( 1 )=HC 1 >+100 : IF VC1>> 
THEN VC I >=-VC I > 

1330 PUTSPRITE 1+2 ,< X¥10 . Y*10 ), 1*2+4 , 32 
1340 -IF ABS(XCl-n-X)<89 AND ABStYCl-D- 
Y5<B3 THEN GOSUB 5000 

1350 Lc i)=LC n+yc n:yt n=yt 0-5: IF vtn< 

-80 THEN VC I J=-B0 

1360 IF LUXl THEN LC 0=B : PUTSPRI TE 1+2 
, C0.2)55 

1370 IF LCI) THEN SOUND I *2 , 1 3+L< 0¥12 : S 
OUND 8+1.15 ELSE SOUND B+I.0 
1380 NEXT OIF D>0 THEN IF D=3 THEN 6070 
ELSE !=D-1 :GOTO 5030 
13SB IF INKEYI=CHRSi:27) THEN END ELSE 11 



1500 ' 

1510 F2=0: IF x<-l 
Y>1910 THEN F2=l 
1520 X=X+CX<503*C 
1538 Y=Y+CY<10aj* 
Y): RETURN 
2090 ' 

2010 COLOR 14:Q=1 
0: COLOR 15 
2020 COLOR=C 15.0, 
2030 FOR 1=0 TO E 
I )=COSi: 1*PISV323: 
2040 CIRCLE C7.24 
:FOR I=a TO 3 1 
2050 COPY (0, \S)- 
2060 LINE C6+CCI* 
<. 1*2)*3.5.3+SC 1*2 
207E GOSUB 25 10:N 
20B0 I=32:C1RCLE 
15:G0SUB 2510 
2090 CIRCLE i;3.3:i 



OR X>2410 OR Y<40 OR 



X-50i-CX>2358)*t2350-X) 
CY-100 J-i:Y> 1B50)*C 1850- 



00: A$="UAIT! '■:GOSUB 40 1 

0,B3:PI»=3. 141592S5351* 
3:SC 0=SINC I*PItt/32>:CC 
NEXT I 
; .7, 15:PAINT (.7.24). 15: 

C 15,30.0 TO C0.B>,0 

2)*3.5.7+Si: 1*2 J*4>-C8+C 

>*4).0.BF 

EXT I 

i:7.7).S. 15:PAINT 1:7,7). 

. 3 . 1 5 : PA I NT ( 3 , 3 > , 1 5 ; 1 = 



33: GOSUB 25 10 

2100 SETPAGE 0. 1 :CLS 

2110 FOR 1=0 TO 9:LINEC73+1 , 10:>-C 123+1 . 1 

80).8:LINE -C 1 73+ 1 . 10 ) . 8 : NEXT 1 

2120 AS="MOVING":O=190:GOSUB 4010:AI="FI 

XED ": 0=200: GOSUB 40 10 

2130 LINE C130, 100)-C 193. 180),e.BF:LlNE 

< 160, 1 55 3 -C 209. 164>.8,BF 

2140 FOR 1=0 TO 1B:LINE C 180 . 100+ O-C 1 60 

+1*.6, 1553,8: NEXT I 

2150 SETPAGE 0,0:OE=0:FOR 1=7 TO STEP 

-1 :COLOR=< 14,1,00 

2160 FOR J=0 TO 999: NEXT J. I: RETURN 

2500 ■ 

25 10 IF INKEY$=CHRSC27) THEN END 

2520 BI="":FOR J=0 TO ! : FOR K=0 To 15:A= 

0:M=128:FOR L=0 TO 7 

2530 P=P01NTC J*8+L,K): A=A-n*i:P=15 3:M=M*2 

:NEXT L:BS=BS+CHR$CA3:NEXT K 

2540 r-IExT J:SPRITESi; O=B£:L1NEC0.0)-C16, 

1 6 >.0.BF: RETURN 

3000 ' 

30 10 COLOR=CB,0.0,0):COLOR=i: 15.0.0,0) 

3020 FOR I=a TO 4:PUTSPRITE OC0.2153:NE 

XT I 

3030 COPYC0.0)-C255,21 O, 1 TO C0.03.0:PU 

TSPRITE 4. i:30,DE*I0+1883, 15.33 

3040 FOR 1=1 TO 7:F0R J=0 TO 2999:NExT J 

3050 AS=1NKEYS;1F STRIG(0) OR STRIGCO 

R STRiGC2> OR AS=CHR$i;27> THEN 1=7 

3060 COLORS': 15.1,1,1 3:COLOR=C8, I , , > : NE 

XT I 

3070 IF AS=CHRSC27) THEN END 

3080 PUTSPRITE 4 . C90 . DE*1 0+ 188 3 . 15 . 33 

3090 IF STRIGCO) OR STRIGCO OR STR1GC2) 

THEN FOR 1=7 TO STEP - 1 : COLOR=< 8 . 1 , . 
0>:COLOR=C 15. I . I . O:F0R J=0 TO 999:NEXT 
J. 1 :CLS:PUTSPR1TE 4 , CO , 2 15 ) : FOR J=0 TO 4 
399 : NEXT J : C0L0R=NEIJ: B2=B: RETURN 
3100 S=ST1CKC0) OR STICkCO OR ST1CKC2): 
DE=DE+CDE>0 AND CS=1 OR S=2 OR S=e>3-CDE 
^1 AND S>3 AND S<7 ) : B=B+CB>2 AND S>5>-CB 
<9 AND S<5 AND S> 1 ) 

3110 AI=INKEYI:FOR K=0 TO 98S:NExT K:GOT 
3070 
4000 ■ 

4010 X=128-LENCA$)*4 

4020 't*l &H2A,X,&H22,&H87.&HFC,&H2A,0,8<H 
22.&HB9,&HFC 
4030 FOR i=l TO LENCAI) 
it040 A=ASCCNIDSCAS, I , 0> 
4050 "t*! &H3A, A,&HCD,&H8D,&H00 
4060 IJEXT I 
4070 RETURN 
5000 ■ 

5010 GOSUB 7040: J=l-I :GOSUB 5060 
5020 XCJ3=XCJ3+CCH)*120*C1 + CVCO<0)*1.3) 
:YCJ)=YCJ3+SCH) + 120*C1+CVCO<O)*1.33 
5030 X2=X: Y2=Y:X=XCJ3: Y=YCJ);GOSUB 1510: 
XCJ3=X:YCJ>=Y:X=X2: Y=Y2 

5040 IF F2 THEN FOR K=0 TO 5: GOSUB 5060; 
NEXT K:VC O=-80:GOSUB 7060 
5050 RETURN 

5060 HPCJ)=HPCJ)-3: IF HPCJXO THEN HPCJ) 
=0 

5070 LINE C250, J*204+O-CHPC J3+6, J*204+6 
>.0,BF:lF HPCJXl THEN D=D OR CI + O 
5080 RETURN 

5090 GOSUB 7010:FOR J=0 TO 39 
5100 LINE C256*RNDi; 0,212*RNDt 0)-CXCl-l 
3¥ia+8. YC 1-O¥10+83,B:NEXT J 
5110 AS=" PLAYER"+STRIC I + + " UHNl " 
5120 Q=100:GOSUB 40 10 
5130 IF STR1GC0J OR STRIGCO OR STRIGC2> 

THEN 5 130 
5140 IF STRIGCO) OR STRIGCO OR STRIGC2) 

THEN 5160 
5150 IF INKEYS=CHRSC273 THEN END ELSE 51 
40 
5160 FOR 1=7 TO STEP - 1 : COLOR=C 15 , I . I , 
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■*; 



I ):C0L0R=C8. I .0,0 J 

5 170 C0L0R=C4.a,IZI. I>:C0L0R=(6. I . B . :i : FOR 

J=0 TO 999:NEXT J.I:CLS:GOTO 1130 
G000 ' 

6010 GOSUB 7840: J=l-I:2< i J=8:ZC J>=0:Z=0: 
?^2=XC I)-xCJ:i:Y2=Y'; 1 >-YCJ> 

BB20 FOR J=B TO 1 : HPC J )=HP< J )- 10 : I F HP<J 
i<0 THEN HPCJJ=0 

6030 LINE (250, J*204+l 5-CHPC J)+6. J*204+B 
:i.0,BF;IF HPCJ5<I THEN D=D OR C2-J) 
6040 NEXT J:FOR J=I TO 1-1 STEP 1-1*2 
B05IZI x=X<:j:i+X2: Y=YCJ)+Y2:X2=-X2:Y2=-Y2:G 
USUB 15l0:xXJ J=X: YC J>=Y:N£XT J 
6060 X=X< 1 >: Y=YC I ):ReTURN 
B070 GOSUB 7010:FOR J=0 TO 99 
6080 LINE (XC0>¥10+8, YC0>»*i0+8)-CRNDC 15* 
256.RNDC 1 J*212\8 

6090 LINE CX< 1 >¥10+a, YC 1 )¥10+85-CRND< 1 )* 
256.RNDC 1 >*212).8 
6100 NEXT J:A$=" NO WINNER ": 0= 100 : GOSUB 

4010 
61 10 GOTO 5140 
7000 ' 

7010 FOR J=0 TO 1:PUTSPR1TE J , ( XC J )¥ 10 . Y 
( J)¥!05. J*2+4.H': J>*2:NEXT J 
7020 SOUND 7,6: SOUND 6 , 3 1 : SOUND 12,128:S 
OUND 11.0: SOUND 9 . : SOUND 10,0 
7030 SOUND 0,0: SOUND 1,255: SOUND 8. 16: SO 
UND 13.1 : RETURN 

7040 SOUND 4,29:S0UND 5.0:SOUND e,15:S0U 
ND 7.24 

7050 SOUND n,0:SOUND 12.10:SOUND 13,0:3 
OUND 10. 16: RETURN 

7060 SOUND 4, 93: SOUND 5. 99: SOUND 8,255:5 
OUND 7.24 

7070 SOUND 11,0:SOUND 12,9:SOUND 13,8:30 
UND 10, 16:RETURN 
8000 ■ 

80 10 -TURBO OFF 

8020 SOUND 8,0: SOUND 9 , : SOUND 10.0:3CRE 
EN , , 1 



- 



hZibXV-)]^ 



ki'^Tjm^Ub^-Viz 



t 



100 SCREENS, 2: COLOR 15.0.a:CLS 
110 K=128: Y=9G:U=1 :C=15:D=2:0=1 
120 FOR 1=2 TO 7: AS="":FOR J=0 TO 3 1 : REA 
D A: A$=A$+CHR$i:A);NEXT:SPRITEIC 1 i=AS;NEX 
T 

130 A$="" :BS="":FOR 1=0 TO 1 5 : AS=AS+CHRS 
a0):BS=BS+CHR$C73>;NEXT:FOR 1 = 1 TO 3 : CO 
LORSPRITESC 1 *2 )=AS: COLORSPRI TE$< 1*2+1 )=e 
S:NEXT 

140 DIM DYC3>,DC3i.C'; 155:DYC3)=0:DYC2> = 1 
G:DYC1 )=24:DC3) = 15:Di;2)=7:DC 1 )=3 
150 SETPAGE0. 1 : COLOR 15,0,0:CLS 
160 FOR 1=0 TO 15:READ AS:FOR J=0 TO 15: 
A=VAL;MIDSCAS. J+1 . l 5):PSETi:48+J-A*16. 1+2 
a;,255:NE?:T J, I 

170 FOR 1=0 TO 7:READ AS:FOR J=0 TO 7,:A= 
VALCMiDSCAS. J + i , 1 > ) : PSETC48+J-A* 18 , I +44 J 
,255: NEXT J. 1 

180 FOR 1=0 TO 3:READ AS:FOR J=0 TO 3 : A= 
VALCniDJCAS. J+1 . 1 ; 3:PSETC48+J-A*1G, 1+52 > 
,255: NEXT J. 1 

190 FOR 1=0 TO 15:COPY(0,2e)-C47,55) TO 
C48.28):F0R J=0 TO 2 : READ A: CC I)=C< I)-A* 
= 1 ):LlNEi:j*16+48.26)-< J*I6+63.55).A,BF 
, AND:C0PYCJ*ie+4B,28)-C J*lB+83.55) TO CI 
*18,0), ,TPSET:NEXT J. I 

200 PSET CI ,28).255:PSET C , 28 ) , : PSET C 
0.29).255:PSET C1,29J.0:FOR 1=0 TO 255 S 
TEP ■2:COPY':0.28)-C 1 .29 3 TO C I , 28 ) : NEXT : F 



OR 1=0 TO 35 STEP 2 : COPYC . 28 )-C 255 . 23 )T 

OC0, I+28:):NEXT:COPY C0 , 5-C255 , 27 ) TO CO 

,28). .AND 

2 10 SETPAGE0.0:GOSUB2e0 

220 I=PADC 12):X=CX+256+PADC 13 ) )MOD25S : Y= 

CY+2 12+PADC 14))M0D2I2: I$= INKEYI : PUTSPRIT 

ED*2. ex. Y-n, ,D*2:S=STRIGC3):C=CC-l-S)MO 

015+1: IF SANDW THEN GOSUB 290 

2J0 IF lS<"r' OR 1S>"3" THEN IF IS="4" T 

HEN T=2a-T:IF W THEN GOSUB 290 ELSE 240E 

LSE IF I$="5" THEN IF W THEN GOSUB 270 E 

LSt GOSUB 280 ELSE 240 ELSEFORI = 1T03 : PUT 

SPR I TE ! *2 . C a , 2 1 2 ) : NEXT : D=VAL CIS) 

240 IF U THEN IF X*128 THEN IF Q THEN GO 

SUB 260 ELSE 250 ELSE IF Q GOTO 250 ELSE 

GOSUB 260 
250 IF!$="S"THENGOSUB270:BSAVE"A.SCR",0, 
5427 1 ! ,S:GOTO 220ELSE IF I $="L"THENU=0 : BLO 
AD"A. SCR", S: GOTO 220 ELSE IFSTR I GC 1 )THENC 
0PYCC*16,DYCD)+T)-CC*16+DCD).DYCD)+DCD)+ 
T).l TO CX.Y).0.TPSET:GOTO 220 ELSE 220 
280 GOSUB 270:0=I-Q:GOSUB 280:RETURN 
270 W=0:COPY <0.72)-C23.35), 1 TO C50+Q*l 
28. 30): RETURN 
280 U=l : A=50+Q*128:COPY C A, 30 )~C A+23 . 53 > 

TO C0,72). 1 :LINE C A . 30 )-C A+23 , 53 ) , , BF : 
LINE CA,30)-CA+23,53).255.B 
290 LINE CA+7,37)-CA+14,44),CCC),BF: IF T 

THEN COPY C0.56)-C7,63). 1 TO CA+7.37),, 
AND: RETURNELSERETURN 

300 DATA 32,80.160.64,0.0.0,0.0.0,0,0,0, 
0,0.0,0,0,0,0,0,0.0,0.0.0.0.0.0,0,0,0 
310 DATA 36,144.144,36.0,0.0.0.0,0,0.0,0 
.0,0.0,0.0,0,0,0,0,0,0,0,0,0,0.0,0 



320 DATA 40.84,170,85,170,35,42,20.0 
,0,0,0,0,0,0.0,0.0,0,0,0,0.0,0,0,0,0 



330 DATA 60.66,129,129.129.129.66,60. 
,0.0,0.0,0.0.0.0,0.0,0,0,0,0.0,0,0.0,0,1 



a,0 



340 DATA 2.5.10. 
2,85,42.21 , 10. 1 , 
,86, 170,85, 170.8 
350 DATA 3. 12, 16 
8,64,64,32, IB. 12 
1 ,2.2.4,8.48, 192 
360 DATA 0000003 
0333 
3232 

390 DATA 0032321 
400 DATA 0323212 
410 DATA 0332121 
420 DATA 3321212 
430 DATA 1212123 
440 DATA 2122232 
DATA 3222322 



370 DATA 
380 DATA 



456 

460 DATA 0322221 
470 DATA 0121212 
480 DATA 0012121 
490 DATA 0002232 
500 DATA 0000222 
510 DATA 0000001 
520 DATA 0032220 
530 DATA 0321221 
540 DATA 32121 1 1 
550 DATA 2121212 
560 DATA 2 122122 
570 DATA 221 1221 
580 DATA 01 1221 1 
590 DATA 0021 1 10 
600 DATA 0320 
E10 DATA 3222 
620 DATA 2221 
630 DATA 0210 
640 DATA 110, 73 
, 160.246.238,224 
. 28. 20. 16.255 
.156. 26.254,252 
, 126. 159, 31 , 22 



21 ,42,85, 170.85. 170,85.4 
128.00. 168,84. 170.64. 170 
4, IBS, 80, 160,64 
.32,64.64, 128, 128, 128, 12 
,3, 192,48.8.4,2,2, 1 . 1 . 1 . 

123000000 
2 12310000 
122221000 
223212200 
122221220 
232212220 
322121221 
22121221 1 
2 12132121 
12 122221 1 
213231210 
122212 1 10 
323121 100 
2 1221 1000 
121 1 10000 
1 1 1000000 



, 4,110, 73. 4.238.224 
, 147, 39, 3.215, 147. 99 
.215. 147. 156. 28, 20. 156 
, 180,255,254,252,224, 160 
,223, 150. 146,255,255,223 
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_^fi?,800R (iig40ogi_ 



:*; if rF ^MS-DOS SOFTWARE TOOLSjff)->'J-Xlg33i/ 
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16tf':/KCPU/R-B00A-^!|fftt^=£^<// 



fc*^gtW« MSTHWm^^-i^-yi- 



FS-AIST(MSX-TURBO-R) 
Slffi-g-ttlO6.900P3 



87. BOOR 
7, BOOR 



BfcgiMl A\STiitil^¥-^±yt- 



FS-AlST(MSX-TURaOR) 87 BOOR 

TH-i4G2(?'L-t:i^i(,l|fflCRT) 60,000R 

Fs-vczouM1^msm'r-y n-) a.oooR 

EGG-MOUSE (v?:^) 5 SOOR 

XEI-PR0(il«S->3-f.X7^-fv*3;'|-n— 7> 9,500R 

7W 7,8G0R 

->- K*?l-'^^>' 8, BOOH 

x-f.:*.?-^-?— v-a^OXa* 3.BB0FI 



8)700p)X|2@ 



2.50qR 



■a^HJlrRJ AIST/<V=i:^XPq-('.vK 



FS-AIST(MSX-TURBO-R) B7 800^ 

TH-14G2(7'ufrt».9fflCRT) 60,00OB 

F5-VC3D\\Ai9mSm-:r--/)i.) 3 OOOB 

EGG-MOUSE (VO;^) 5 80OP3 

FS-PC\{4ai---A,i}^-mti.Wyi»9) 59, BOOR 

SRS-l50EX(BSiS^,7'>yf'5«;(fc;-:^} 24. BOOR 

T^x:r7.^-i^3>DX3^ a.BBOR 

7'y>*-SHt(A4-i?--f X) JOOft 400R 

WD-40IG((efS4e'^V3>-r:^:5,v■5:^?-7■;l.#) 29, BOOR 

WT-0OlG(ffl^,A'.:^iJ7h±TSii5»«) 19, soon 



6*000^x18151 



4*600nX241l 



3)200^x3615 



*-:^;^ 'ft 



*-■ ^?; ai 



*-■ ^:^ ftL 



^--■f-T. 4-L 



gffi^lUBfi.SBOR* r5X"*"*^*7'*^i^fB 


ISj/OOrXISB 


*-:^X 4L 


9*400nX18l2l 


ni—f-X 4-L 


7»2OOflX240 


*--^::^ 4L 


5)000»x3Gla] 


*-:^;^ 'j:L 



Sffi-g-tt295,080R'» '^ Ji^~f •^ ^ i^M 


10)000f?>^i8II] 


*" + ;^2l,7O0RX3@ 


6)OOOnX24i§] 


*- + ;^26,600RX4|5t 


4fOOORX36iii 


-■J*- + :^19.600RX6li] 


5»700nX48a 


^~-i-X tcL 



PC CLUB 



KoB(iMPn-r.i [iBfea>-^,jc^4,...k 



PC-2B6C-STD ( 1 6t-'/hCPUB0286aC, FMtiert«) 
CU-!4GD(Kyhf7f0.39;iJ.a»ftSCRT,f-;i.hir#) 
AM-350{'<:3i-7'?;^, 350fl9>-Hi«) 



I y^>304 



168.O00R 
69. BOOR 
6. BOOR 



Sffl61 



tt244,600R-*^I— -^.p^i^fll 



PC-CLUBgJiWfa'7-7a7'-h-t-yf- 



PC-2e6C-STD(16tvl-CPU8(l!36SS,FMtgf^a) 16B.000R 

PC-KDeS4N(K-?hf7M.39;iJ,S«®8CRT,fJl.|-SW) 84, BOOR 

PC-PRlL0T(BDtff,48K7W7-«ie¥7'g>?) 64,800R 

a-S^WAVEIV-T-QVyKJ^J^vJf^S.iHISftW) 9. BOOR 

PS9B-0I9-HV[B*SMS-DOS Ver3.3C) 9.800R 

PV-MI2('J'5a^xA) 19. BOOR 

AM-350('<XV>X,350S9>H±«!) 6. BOOR 

WD-«iG(sa4e'<vii>T:^?.70;(x-?JH^) 29. BOOR 

:/|J^?-fflaE(A4+^'fX)100«! 400R 

7P>yb:-lK»ft-y-;^ 2.9B0R 

■^•y7.!i-:^-j\-(^-^:^iSi»i^-x) I.OOOR 

v9:^'<yK l,OO0R 
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KfcgiHll X68SUPERaW^#MIDl-byh 



CZ-604C-TN 348.000R 

CZ-6l)6D-TN(K■/^t■7f^0.39lm■,SSS^CRT,f■)^^&) 79, BOOR 

RX-X55(t'i'i'-CD^-,;^:*j-b) 43,800R 

CM-64(MiDl^S=Ei;3.-;i.) I29,000R 

CZ-6BMI (MIDK >?-7i-::^> 26, BOOR 

MusicPR06eK(MI01) (*»«*. Si^yyh) 2B,B00R 

y:^9-7-i-77iJ-((IOIft4SiH) 8. BOOR 

MusicstijdioPR068K(-7;u?u-3^^^^?'y7h) 28, BOOR 

IS;"iESffieSttII(->;iL— >a>y-A) 9. BOOR 

7^^v?D#+7K{ai^|SlWQ-J^□!t;■y^>•IL-T^?•i'-A) B.BOOR 

yQ,yt'-iEift-!r-^ 2,9eOR 

-7'5::^^>vKv'5;^iHW-*— ;^) l.OOOR 



g(ffi#lt7]fi.3B0R^ ^I^^*7^!t$iffi 
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10.400f^X72@ 


^•-±^ 4-L 






EMBilH X58PRO 1 1 JiHfi»*-feyF 



CZ-653C 2B5,OO0R 

CZ-606Dfr-/Kyf0.3e™,SH«aCRT,fWSft) 79. BOOR 



^™-g-|t364 



•5i-:7-7'-r!^ii 




X68SUPER HD ?^7-i-y?-t>h 



CZ-623C-TN(80MB/v-K7^'-f;^?i5Si} 498.000R 

CZ-613D-TN(TVf^lK-yhf7-?^0.31™aS«SCRT) 135, DOOR 

AP-900180(fi,48K>l-ga6A7-«lte?7'ij:^) 94,aOOR 

= 822B(7"i)>?SfiS'*— ^^t.) 6. BOOR 

CybernotePR068K{';-y:t-Jl'T'-y'<-:^) 19, BOOR 

CAMVAS-PR06aK(«IlF®KP-?77^-y?7-Jl-) 29,800R 

KP-i^^^-fyJ^-f y^V-fVol . 1 8, BOOR 

■^^■-)llV'^3-A(->S.:yU-i^^>f-h.) 7. BOOR 

iB;"=ISttffilfilI(>:i^— >3V'y-i.) 9.800R 

7D'/f-iKtt-V-:^ !,9aOR 

^■?;^*''^-;'Kv'?ZiaW'>— :^) I.OOOR 
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*-■ *-;^ CL 
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PC-980IDX2{lGi;i'hCPUB02B6}SK.FMffiSf^Ja) 3I8,000R 

CU-14GD{0,39mm.|BiS«SCRT-?Jl'h-S-#} 69. BOOR 

AM-350('-;^v';'X,350S'?>-hft») 6,800R 

vn-iiM-mti'r-y. 2,980R 

v?;^#>r>Kv'?xiaK-*— A} 1 .DOOR 



^gt-39B, 5B0R ■♦ ^ I "^ • 7 *f 4$fiE 
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Ai--)-:^ 4t 
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CU-l4FD(0.3Ui;.SlBSiS,?Ji-h-&#) 

S;"=rSttl£lftil (•>i3.i'-i'a><r-i,) 

i^-f *> ( D — ;i- ■? u-r > ?' ■*" — A ) 

■«J--f I'^Mf ■SX (7- K •O-fi'-'i-'-.ix) 

:*;iiS«Slll'90(->;ii'— >3>y-A) 

PS98-019-HMW(g*gMS--DOSVHr3,3C) 

AM-350C'-::^^'?:^.3507)'»-httaS) 

-7>>;^ ;f;^ i-K v-JXiHlfi-?— A) 
WO-401G{eS4e''."7:]>'?;i^.vti;^x-7;i^) 

WT-O01G(fS^.*-XiJ7hJiTilffiffl«) 



318.00DR 
74. BOOR 
9, BOOR 
G,aO0R 
14. BOOR 
9.800R 
9. BOOR 
6. BOOR 
2.9B0R 
I.OOOR 
29,800R 
19,800R 



S(ffi&t1-507 . 3B0R * ^ I "y • "p -f l^fli 



1O)OOO>iX30lsl 



8)OOOnX36l§] 



6>000>4X4SIS1 
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*--:»- :719.900nx 811 



^•—i-7. 4L 



I y-^^BH 

CZ-604C-TN 348,000R 

C^-506D-TN(^-■y^t■7fO,3^■;|»,«)B8gCRT,f■J^^S) 79, BOOR 
(0-735X(13Stfr,»^— f>7•>i■y^7•|J>5') 24B,000R 

iO-73CX[y'ii>J'SIK->— ^'./i-) 6, BOOR 

CZ-6VT] [A7— f y-^i-yh) 69, BOOR 

ZsSTAFF-PR068K(»|»«g?7:7-fV?y7h) 58.000R 
6T-IOOO(A?-lf-f?;',/»f.(-?-f7'7)US7— f>-i>7tl-+) 79, BOOR 

7,500R 
2,980R 
l,000R 
29,800R 
i 9, BOOR 



X68SUPER*|ST-HZ'yl- 



= 5220(;^+-i--^-eflt-y-7Jl-) 
7P'yf-iHlfl->— ;^ 

WD-40 1 G (S!S4e' <y 3>x X J . -^OXT-rf /utt) 
WT-001G(ffi^. A-;^iJyhJiTS!ffl««) 



Sffl-e-t|-954.4B0R* ij I '^•'P^^fffi 


18.000Rx36g| 


.+'-f-x40,3ooRx em 


14)000bX48S 


*-:^;^32.700RX BE 


12)OOO»x60a 


*-:*-;^26,4OORxi0ia 


14*300^x720 


*-- ^:^ SL 



X63PRO 11 K ■ W'^-A-tvh 



CZ-653C 2B5.O00R 

C2-613D{TVi^«EK/I-fyf^0.3l™r.KK«SCRT)i35,OOOR 
v>i"7^-;^(«;^?n-,'i.^i-x>?'y-A) B.eooR 
-f>— >77'-fK!ix7o-;i-->3.— ?:^?'<r-A) 9,700R 
?'-f+-v-f>r=L-i'(7*?->3;-¥-A) B.BOOR 

')^?v;t?-(SSm77y7->-D-;i-:'i--fy?''!7=-A) B.BOOR 
gi5ISffilEiJSII(i-iiU~^3^-^-A) 9,e00R 

J0Y-CONT-Turbo3(aWS^3-1''''7K]2* 4.400R 



£fl#&t470.300R'* ^1^7'P'^'i^ffi 


8*OOOnX360 


*-:*-:^23.l00Rx BE 


6)OOOrX480 


*-■ ^::^19.900RX Bis] 


4fOOOHX60@ 


*-:*-X23,200RX|Oe 


6>800nX72@ 


*-+:^ 'j:L 



^7>3) 



X68SUPER HD PCMf^lS-tyh 



CZ-623C-TN(B0MB/v-Kx-f;^7Sili) 49fl,O00R 
CZ-606D-TN(Kyhfy?0.39™jSfiS«CRT) 79. BOOR 

AP-600(80tiI.^4^"■y^ft■5-Se?7■|J>?) 62. BOOR 

= 8226(7'iJ:^?SiBt-;r-7'JL-) 6.800R 

CM-32P(WiS^i^.i-Ji-) 72.00DR 

CZ-6BMI(MlDI-f:^i'-7i-X) 26. BOOR 

Mu5icPR068K[MIDI](^IBSft.S«y7h) 28, BOOR 

y:'?'7-f7'5iJ^(101fti(SK) 8, BOOR 

MusicstudiDPR06BK(7JL.f-L-3-T-<>-?y7» 2B,800R 

ffi;5f«ffieutn (vizLi-— >3>^-A) 9, BOOR 

MA-12C(EfiiaS:xt"-A>2-& 28,O00R 

7n';'f-lRtt-y-::^ 2.9BDR 

•V?7.7f.'r-A{-7'^7.Ui}i'r-:^) l,O00R 



S11^ltBS4.380R' 



<5i-:7-7'<it$1i 



15>OOOnX36lg| 


*--^:s43.IOORX6(Il 


12»OOOFiX4B[il 


*- + X32,700RX 8® 


IOiOOOf^xooq] 


*-- ^:^28,300RX10(11 


12<800. 


^.-tT. til 



fmTOWNS 



gfegsm TOWNS- iriFfeh-gW^-A-fevh 



FM-TOWNS-IOF(3!t'7hCPUS0336flE.FDDlS] 298,000R 

FMT-DPS33(K7hf7?0.3S:'J.iB»«SCRT,f-JUh§#} 69. BOOR 

FMT-KBiOl(JIS?-f:/4'-*-K) 20,OOOR 

XE-IAPtz-^a^'-J^g-f'^'-yK) 13, BOOR 

SRS-I50EX(i!fiSSM-7'^7'l^«;tf-A) 24. BOOR 

K^y*->{n-;i.7'K >?■*=- A) B.BOOR 

j'iJ-3-7>h(7Jl.7->— Vg^ZK'Of'l'— fr-A) B.BOOR 

-rx— :j77'-fK;^-'<— >i-7^-f>?<r-A) 9, boor 

S!?V-:^3>-v;^?— fl:t;^o>ffl!l 9, boor 

^□.yt'-iEW-*— :t 2 , 9B0R 

-7'5.:^*>yKvO:^iKW'*— :^} 1 .OOOR 

'5x-7'-7'-f»-?-*->x+'yh -y— t-;^ 



:S(ffi-&tt467.5eOR^ '5l^7'5'^'1$JilB 


9»OOOnX30[il 


#- + ;^25,700Rx tm 


7fOOOnX360 


*-:*-:^26,OOORx 60 


5.OOOnX4B0 


^- + :X23,500RX B0 


7)5OObX60[5| 


*-:*-7. 41 



TOWNS-20Ffcwm**-tiyh 



FM-TOWNS !0F{32eyl-CPU8O3S6}5e,F[)D2») 323, OOOR 

FMT-DP533(^■7^e■yf[l.39;U,SS«aCRT,f■;^^&#l 69, BOOR 

FMT-KB105(JlS?-f7'*-*-K,x:'*-M-) 30, OOOR 

¥=7-y'r>l,a-l\,-f\^-i>'yf-J^) B.BOOR 

;<iJ-J-^>K(7Jl'7-J'— >3>-7F'^>-?-t— y-A) B.BOOR 

7a>yf-iKtt-y-:^ 2,980R 

7'>X*>'yK-70;:^iEtt->— .:^) I.OOOR 

■?i-7'-7'-ry>f-+i';^*-yl- -tj— t-:^ 



^Sf4«,380R* 1^1 — "^'P-YI^IBB 



9>000>4X3oi§] 


*--^:X24.000Rx 511 


7)OOOFqX360 


*-- f A24.600RX6@ 


5)000>4X4Sl§] 


-t:— *-X22.400RX8[il 


7)3OOFqX6O0 


^-- + 7, fit 



■atJ8Mil9RDX?^feWSAP^-tr-/h 



PC 9S0tDX2(i6f-yhCPUaO!86ffie,FMSS«) 318, ODOR] 

CU-MFD(0.3UiJ,B;S«aCRT,5^/H-g-H-) 74,800P3 

PC-PR150T(A«-fX,48K7>,S5-*ie?3'iJ>?-) 64,800fl 

MS-W0RKS{a«'7-7'P,Rlt-)(,f-?-:-;<,iait) 4O,OO0P3 

PS98-OI9-HMW(B*BMS-DOSVer3,3C) 9,800P3 

lS',^Xm&UU{->S.^U—>3>¥-J^V7t-) 9,8O0P3 

flM-350{'<J^-7'5:^,350ft'5>httai) 6,800ffl 

7"iJ^'?-fflte(A4-9-'fX)100ft 400n 

TD'yt'-iEtfi'S— ;^ 2,980P] 

WT-00iG(ffi^,fl::^iJ7h±TM»««) 19,800f^ 

^11-&tt577.9aOfli 



^^m399.SOOi 




9)OOOn>^3sa 



7T000nX4e[§i 



5*OOOnX601l 



7,800^x72151 



'H 



;;<- + :^27.200RX6lil 



*-■ *-X2l,300Rxalsl 



*-+7,23-900RxiOlBl 



#-■ #-:x ftL 
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CfcgiTilil 93DS2:*:f§S^n-7"P-tyh 



PC-9B0IDS2(32t'yhCPU803B6SXfSK> 368,000R 

PC-KD8S3\{K7H;yf-0.3l!U,S»aSCRT.f-MS1t) ]I8,000R 

BJ-l30J(l3Sffi,13K-;'h«a&''7)i.v;i7|-7''J>?) 198,000n 

-*SEVerl.3(*tSa*g'7-yaV7t-) 58,OOOR 

EMJ-2000L(EMSSrttE2MB«|gRAM*-K) 34. BOOR 

PS98-OI9-HMW{B*0MSDOSVer3,3C) 9. BOOR 

AM-350{'<:^-7'?:x,350fl'?>H±») 6, BOOH 

■7By f-4Slfi-S— :x 2 , 9B0R 

■f>»^mmMV--<x)m's. 4oor 

S:ffl-&lt797,880R * ISffi 499* SOO« 



12*000^x36111 


#-■ ^:^29,500RX6isl 


9>000piX4BSI 


*-■ ^:^25.900nx SHI 


7,OOObX6oisi 


*-■ /-X25.4OORXI0lsi 


9,800^x720 


t—i-T. tft 



^^B|a98DS2SfcWf«t>>4:^AP^-tzvh 



PC-9801DS2(32fc;'yhCPUB03e6SXHK) 368.000R 

CU-HFD[K7lf7M.3l:iJ.«)»»gCRT,?M^ttl 74, BOOR 

pc-PR^^ll/45(l36ffi.^^^■■/^B*Sy';7J^7'u>*) 95.ooor 

COMSTARZ3424/5(tTA,;4CtObps,MNP?775) 44. BOOR 

PD-403(40Ma''— Kt-V:^?) 9G.000R 

J.-A7WflVE(7-7-ny7h,7-l-«ai.iitS«ffiftJ 9, BOOR 

7->xbtiii-i'imt^V'yy\-) 9.700R 

7->Zhyj-K((±mSi::fflWtt»-KS-?-*'<-:^) 9,700R 

PS9B-019-HMW(H*eMS-DOSVer3.3C) 9, BOOR 

AM-350{'-;x-7'5;^,35GS'?>hft«) 6, BOOR 

yn-yti-^m-^-T. 2, 980R 

y'J>J'fflK(l5-f>'f»ffiK)500S[ 2,400R 

■f'i>9mmM-*f--(X)\(im 4oor 

-?'>;^*-*-yK-7'?;^iHtt'*— :^) I .OOOR 

WD-401G(»S4S''y3W--;t?.V'7;i;T-7'Ji.«) 29. BOOR 

WT-0OIG{«^,#:^ij7t'JiTn»««) 19. BOOR 



SflE'&fl-774.7BnR* fi' I ■~^* 7*^^81 


12f 000^X361] 


*-+::^38,300Hx eg 


10fOOO>^X48le) 


*-- ^;^26,B00Rx BUI 


8iOOOnX60l§i 


#-+X25,200RxiOEl 


10)600<^X72@ 


!f-—f-7. tit 



^^BH| 9EDA5*$iES*-t y|- 



PC-9801DA5{32t'y[>CPUB0386,40MBHDrt«) 598. OOOR 
PC-KOB53^J(K7^t■■vf■0.3l;lJ,«S«SCRT.?)^^*tt) MB, OOOR 

AM-350('<:^-7O;*,350A'J'i-hf±») 6. BOOR 

7P-vt;-iH*fl'ir-;^ 2 , 980R 

7'iJ>J'ffitt(A4*-f X) lOOtt 400H 

v5;i*-->-yK?->j^iRtt-*— ,^) 1 , OOOR 

'5i-7' ■ 7'(^>9-i->7.^yt- V-ax 



Sfl|-&f1-727,180R* ^I""'^'7*f ^ffi 


10*OOOraX36g| 


*-f-Z40.600RX6@l 


8>000nX4B|Bl 


*-■ *-?i31,IOOnx8ll! 


6*00 On X eon 


*-■ ^X3O.700P3x;O(l 


9i700flX72@ 


4!—f-:x. *U 



EERkM 91!DA5«4S-tr y|- 



PC-9a01DA5l32t'-y>CPLI80386,4QMBHDf^j») 59B,O00R 

PC-l<D8flI(Kyhf-y?-0.I8;iJ,«««aCRT,?Ji.|-^t) I IB, OOOR 

PC-PR20l/65A(1361S.fl7-7''M.B3Bft7OmX7Ml 215. OOOR 

PC-PR201X-04(->-h7^-?'.ft'yHaC!iiBHett) 50. OOOR 

SHD-4(l('J^,Sa4{IMB/--Kf^:^?,-f>:^h-Jl-V7Ht) 99, BOOR 

PS98-OI9-HMW(a*BMS-DOSVer3,3C) S.SOOR 

AM-350('<XV'7X.350A'7i'l-tt»} 6,800R 

7D-yf-ifflW-y-X 2,980R 

7■|J:'*'ffla(A4+^-f X) ioo«; 400R 

-■'?X*:->-;.K'7'>XlEM-V-X) I, OOOR 

'?i-y' • 7-f y>7^-+->X+-yh -9— tX 



BEfcg;m9BDX?^jgb>:t-x-tevt- 



PC-9801DX2(16f-/hCPUB02B6Se,FMg»#) 318. OOOR 

PC-KDBi3N(K7lt:7fl).3l;U,ai*«8CRT,-fJi.h^) MB. OOOR 

VP-260liPC(136tfiftas-5-S?7'iJ>?,^h7<-Si'!SE) 145, OOOR 

VP3000RC[iJ;t(>ft-hiJy>!iS) 2. OOOR 

VP3000CRC(»7-'J#^S-h'JyC;) 3. OOOR 

COMSTARZ24!4/i('erA.24{IOl)P5,MNP?7?;i) 44. BOOR 

SHO-40('J-l.SS40MB'>-KTa?.-f>7Mi-V7H*] 99. BOOR 

EMJ-2000L(EMS*{*£2MB*ieRAM*-K) 34. BOOR 

Lotusl-!-3R2.2J{*l*SStI,T-?-<-A,?-77M) 98. OOOR 

-*;9BVer4.3(*«a*S'7-7'nV7h) 58, OOOR 

7->Xh3-,)i.(fii(taf»y7h) 9.700R 

PS9B-019-HMW{a*KMS-DOSVer3.3C> 9,800R 

AM-350f'';;^-7'>:;^.350S'>:^i'tttt) 6.8O0R 

7Pyf-iR«-!r-X 2,980R 

7'iJ>?ffl»a(A4t)--fX)100«! 4O0R 

vOX^^yKv-SxiEM-*-- ;t) l.OOOR 

'7JI-7' • 7-^ji>-f-t->7.^v\- -tf-t'X 



Sfl6^tt954.480R * t^ X "^'P-f ^ffl| 


14*000nX36I§l 


#-■ ^J^52,100RX615| 


12>OOOnX48[il 


*-■ ^X35,100RX8a 


1O>OOOnX60[g! 


*-■ ^X30,300RXIO@ 


13*100!qX72SI 


*-■ ^X f£l 



■Sfcam 98DS2KWi#»«-tyh 



PC'980IDS2(32tyhCPU803B6SXfgK) 
PC-KDBS3N [K^tf'yf . 3 1 S') . a«*gCRT , -f M^W) 
AM-350(' <X-?'?;^ , 350*'»ht±W) 
7n.ve-iatt-?— X 



368, OOOR 
1 18, OOOR 
6. BOOR 
z;980R 
l.OOOR 
■!*— tx 

SfflE&W-496.7B0R^ ^ 1^^7*7 *^!|^flB 



9)OOOflX3oiBi 


*-■ t-X23,500RX5(51 


7iOOOflX36ii] 


*-■ ^:X24,200RX6I1I 


5)OOOnX4B@ 


#-■ *-X22,100RX8El 


7>3OOnX60lil 


!f-—i-7. f£L 




K^Ksa<!KDS^*;in.-*W;:L— >v7-t7l- 



PC-9B01DS^(3^t■y^CPUB038fiSXffiK) 368, OOOR 

PC-KD882(F7hf->fO,31-iJ,»S«aCRT,fM^ft) 89, BOOR 

SRS-D3KW-77-l2W,;if-Sl3Wffl:*;Si;^t:'-fr>xfi] 20,eOOR 

;a.->aB(*||f^Se3l*->XTA.gii^-:^i-M't] 156, OOOR 

AM-350(''fxv?:^,350»'5>i-tt»} 6,800R 

Music -Bank (7= -?a») 3,500R 

7'>;>-±<A.(*HEne)v7h) 7, boor 

AP-600PC(80fif.24Kyh»-5-SHi¥yU:;'i') 64,800R 

PS9B-019-HMW(B*ffiMS-DOSVer3.3C) 9, BOOR 

SE-5l30('<-l-:t-7ffl«gf-'i:?Jl.*tJS'^yK*>) 4, OOOR 

WD-40IG(ia®4a"'y3>>^^;(^,-?9Xx-7'/H^) 29, BOOR 

WT-00tG(ffi^^.#XU7h_hTMSi»«) 19, BOOR 

^nyt-iKJrt-y- X 2,9B0R 

^■5:^ *:-*-. yK-7'7xiKirt->—;t) i.OOOR 

7'iJ>-#ffiaCA4-V--l'X)lOOIS: 40DR 

■Si-T' - 7'(ji>Ti->X=^-yi- -V-ex 



SflS-&t1-787,280R* ^I '^•7'Y^^fflS 


14*OOOrX36I1 


*-■ ^;^35,700RX61I 


11*OOOnX48[il 


*-■ t-x28,100Rx8El 


9(000nxeD[s] 


*-■ ^X25,400RX?0(1 


11*500nX72ll 


.i;-■^x 4-L 



KiSBiWm 93DA2*iWf*S*■t^v^ 



PC-9801DA^(3^t■y^CPUB03e6ffiK) 44B.000R 

CU-14FD(KyH::'yfQ.31iiJ,«»*BCRT,f^Ji-h#tt) 74. BOOR 
AM-350{'<xv>;^, 350S'»'H±«) 6.800R 

7P-vf-iffi«'i— X 2.980R 

•yx-rf ■ 7'(j'-^f-}->7.^'yi- -tj— t-;t 

S(B-^lt532,5B0R* ^5 I'~'^*7''f ^ffi 



12f 00011X2413 


*—tx37,200RX4B 


8fOOO>^x36iBi 


#-■ ^X28.200Rx 611 


6fOOOnX48gl 


#-■ ^XZ3,900RX 8E] 


8f 400^x60151 


*-■ ^x IL 







PC-9B0IDA2(32t-'vhCPUB0386fflK) 44B,OO0R 

PC-KMBI{K7hf->fl) 28:i).SIP««CflT,-fn^S#) MB, OOOR 

VP-2600PC(l36ffjSa*7-a#/i)>'?,->-f7<-?'fl|K) 145, OOOR 

VP3000RC(';*i-:ft-h';y:^ll) 2,000R 

VP3000CRC(:fl7-iJ*>S-HJyi') 3, OOOR 

COMSTARZ!424/S('ErA,;40lltips,MNP?5:^5) 44. BOOR 

SHD-4O('J-S.«S40MB"-hTiW,-f>;ih-Ji.y7Ht) 99, BOOR 

MRA-2000L(98DA5ffl,EMS*f;tiiERAM*-K) 34. BOOR 

Loti,sl-2-3R2,2J(«»»lt»,7"y'^-7.?77fta) 9B.000R 

-*leVer4.3(*Ha*ffi'7-7■□y7^) 5B,000R 

7>■x^3-;^(ffi*a^ty7^) 9.700R 

P598-019-HMW(a*ffiMS-DOSVer3.3C) 9. BOOR 

AM-350('''xv'>;t.350S'?>htttt) 6, BOOR 

7n-yf-!lEtfi->--X 2,980R 

7'i)>?ffltt(15'f>?'aKtt)500tt 2,400R 

7'iJ>?ffiK(A4-^-i-X) lOOtt 400R 

V'^;^4;'*-yKv'>xiiSW-y^X} l.OOOR 

Oi-T' ■ 7'(j'-''Ti->7.^-yb ■•J'-fX 



318, OOOR 
74,8D0R 
74, BOOR 
S.BOOR 

248, OOOR 
39, BOOR 



KMSiWM 98DX23i*iK*f iTeii/is-trvl- 



PC-9aDlDX2[l6i;'rfCPUa02B6ffiiE,FMgatt} 
CU-14FD(0.31SiJ.*llf¥«».-?^'t-h^#) 
BJ-10Vl80flT,48K7H«a»«a'<7')U^iy|-7'ilyf] 
T'lJV^-i— 7'Jt 

PC-980IN(lfifc:'yl-CPUV30ffi«} 
Little-F(*f#lt3.5-f>?->i-*'Jl-K7-f7') 
PS98-019-HMW( B a:gMS-DOSVer3.3C) 
MS-W0RKS(aS'7-7'p,T-*':-^,?77.SSt*,aiS) 40, OOOR 

AM-350('<X v'?;^ , SSOA-^^l-ttflt) 6 , BOOR 

^nvf-ifflW-^-x 2 . 980R 

7'iJ>?ffle(A4V-fX)100ft 400R 

-7-y7.'r:<r-yf-l,^07.ieim<r-x) i,ooon 

I?!-? ■ ^-f J<>f-^>X*vf ■»*— fT. 

Sfi6#»i-B23. 180R ^ SfflS 549» QOOm 



12iOOO;^x36ll] 



9>000hX4bii] 



7.OOOnX60lgl 



10i700bX72H 



*-:*-X39,700Rx 60 



*--*-X33.900RX8E] 



*-■ ^XBJ.lOORxiOdl 



*-- *-x 4 L 
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^10 00' 



i;R0466(43)1775 ii Si!! 

^Lm 011(771)4971 m>m 0S42 
^|S@ 0198(24)3172 Sc^l 052(5 
lilJ^ 022(287)5371 zk.m 06(3 



Efcg:»!l 98DA2^fca*§**-t/l- 



PC-980IDA2{32tyhCPU8O3B6tSK) 

XC-K9BCI[(0.28i'J.e«»i«SCRT,?;H-&#) 

BJ-13DJll36fif.48K7haSS'<7'Jl--.>i-yl-7'i)>9} 

PS9B-OI9-HMW(B*BMS-DOSVer3.3C) 

i-:fl7W AVE (7-7'ny7K 7-l-«ffi. a 

AM-350('<X-7'iX, 350S'?^'htt») 

7'iJ^#ffla(A4*-fX)IOO*S 

7avf-iK«'*--Z 

vox :t;-y ■yK-7'S;^ iRW-y- X) 

WD-401G|l85!te'fyii>7'X?,vJX7-7'JM^) 

WT-001G(ffi^, #X'J7l-JiTHlii««) 

Ox-T" - 7 ^ />7-r>7.^-yV 

Sffl-t-lt840,180R 



448, OOOR 

107, OOOR 

198, OOOR 

9, BOOR 

9, BOOR 

6, BOOR 

400 R 

2,980R 

1,000R 

29, BOOR 

19, BOOR 

nmszQ.aool 



12*OOOnX36lBi 



10>OOOhX48SI 

8*OOOnX6Dll 



10*400nX72Igl 



^-:^X35.600RX6[l 



*!— ^X24.700RX8a 



*-■ *'X23,400Rxl0[il 



*-■ ^x tit 



K^2Sl58DA2*fg7-7P7'-Hi7l- 



PC-9B0 1 DA2 {32t:-y|-BaCPU803B6?Sii J 
PC-KO8i3N(Kvht;'/?^0.31iiJ,Sli«i«CRT,?WS1*) 

PC- PR 1 5ovL(Boffi . 48Kyi- aae A^-ftK^T-ij:^ : 

PC-PR150V-02(7;i--?MA-r>?i)*>S-l-|J/-» 

PC-PR406HS-DU->-|-7-<-?',fl'yhKoaH>gte) 

PC-PR406M-02(fc;>7^-?'.«lfttft<n»gtt) 

PC-PR406LM-21 (%«»S*ROMft-K> 

PC-PR150V-41(?LJ>-y?f*!*4:ROMfl-K) 

PS9B-019-HMW(B*BMS-DOSVer3.3C) 

-*fiPVer4.3(*ftE*e7-7"ny7l-) 

MRA-2000L(9aDA*S.EMSi*(t«iaRAM#-K) 

GT-IOOO{A7*-f3:,A7-^;'->;^+1't. BtWISWUM) 

a 5220(X*-^-?— ««-*-- 7"«-) 

AM-350('^X-?'i::t,350»'?^htbtt) 

7P'yf-ltStlrt'V-X 

7'iJi'?fflift{A4-tf-fX)IOO«! 

■7-?:^ ^r^yKv-jxiKM-*— X ) 

*»y77<>?V7h 

■^i-T" • r-f J'>-X-^>X*'yl- 



448. OOOR 
118. OOOR 
84. BOOR 

2.ooon 

22, BOOR 

8, OOOR 
19. BOOR 
19, BOOR 

9, BOOR 
58, OOOR 
34. BOOR 
79, BOOR 

7,500R 
6, BOOR 
2,980R 
400 R 
l,O00R 
■HJ— t'X 

*-fc;x 



Sfllfi-|H.I01,780R*H7I "^'P-fi^ii £ffi^ttl,089.4B0R*^I "^'P'f'^ffi ga#tt929.280R ^ H^ X'~'7'7'Y^fl 



20>OOOf^x36I§] 


*-f-X45,600RX6|ai 


15fOOOnX48a 


:t;-:/-X40,300RxBli! 


1 2>OOOnX60H 


*-■ ^X37,SOORXIOH 


16*000^x721°] 


*-■ ^x ftL 



15>000nX4BlEl 


#-■ ^X38,B00RX BUI 


12*OOOfiX6oi§i 


#-^X36,700RxiOEl 


10.000nX72l°l 


!ff— ^X34,900Rxl2li] 


1S<800<^ -.Pi 


#-■ ^X ttL 



15>OOOrX36IbI 


*-■ ^X4I.700RX6@ 


12>000>^x4B[g| 


#- + X3i.600RX8lil 


1O»OOOpx60gi 


*-- ^X27.400RXl0lHl 


12*700nX72lal 


*-:^X ftl 



K^SiVtM TOWNS-30Hfegjf3Ea:-tryh 



FM-TOWNS-80H(85MB'v-K7--(X?ffiK) 623,000H 
FMT-DP534(K-;'ht:';'?0.28iiJ.ft»«SCRT) tlB.OOOn 
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